elna/tests/print_in_loop.eln

11 lines
94 B
Plaintext

var i: Int;
begin
i := 1;
while i <= 6 do
begin
writei(i);
i := i + 1
end;
end.