mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 03:47:59 +02:00
10 lines
189 B
ObjectPascal
10 lines
189 B
ObjectPascal
{$H+}
|
|
const trap : pchar = 'boese Falle';
|
|
var s : ansistring;
|
|
begin
|
|
s:='Dies ist eine ';
|
|
s:=s+'boese Falle'; { see .Ll4: }
|
|
s:=s+'.'; { see .Ll5: }
|
|
writeln(s);
|
|
end.
|