macintosh_cookbook/examples/forloop.pas
2020-05-07 18:47:11 +09:00

14 lines
133 B
ObjectPascal

program ExampleLoop;
var
a: Integer;
begin
ShowText;
for a := 10 to 20 do
begin
Writeln('value of a: ', a);
end;
end.