mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-07 09:52:39 +02:00
16 lines
188 B
Plaintext
16 lines
188 B
Plaintext
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. |