Question

паскаль как вывести

1
2
3
4
5
6

итак до 30

Answer 1

program Z1;

var i: integer;

begin

for i:=1 to 30 do

writeln(i);

readln;

end.