mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 07:59:27 +02:00
18 lines
223 B
ObjectPascal
18 lines
223 B
ObjectPascal
{ %fail }
|
|
|
|
PROGRAM test;
|
|
|
|
{$mode objfpc}
|
|
var a,b: string;
|
|
|
|
begin
|
|
a:= 'Test A';
|
|
b:= 'B Test';
|
|
system.insert(a,'ing',5);
|
|
system.insert('H World','allo',2);
|
|
system.insert('&B',b,2);
|
|
writeln(a);
|
|
writeln(b);
|
|
end.
|
|
|