Program IFSTest;
var
  a,b :string;
Begin
  a := 'test: ';
  b := ImportTest('1', 2, 3, 4, a);
  writeln(b);
  writeln(a);
{ 
Output should be:

1 2 3 4 - OK!
1 2 3 4 - OK! -  OK2!

}
End.