fpc/tests/webtbs/tw36589.pp
2020-01-19 18:21:12 +00:00

7 lines
76 B
ObjectPascal

var k : longint;
begin
for k:=1 downto 10 do
begin
end;
end.