mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
24 lines
339 B
ObjectPascal
24 lines
339 B
ObjectPascal
{$mode tp}
|
|
|
|
procedure display(s:string);
|
|
var L:longint;
|
|
begin
|
|
for l:=1 to length(s) do
|
|
begin
|
|
case s[l]of
|
|
'^':begin
|
|
INC(L);
|
|
case s[l] of
|
|
'M':writeln;
|
|
else write('^'=s[l]);
|
|
end;
|
|
end;
|
|
else write(s[l]);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
DISPLAY('^MHello Line One^M');
|
|
end.
|