Question

Написать программу, выводящую на экран целые числа от 1 до n цикла с while

Answer 1

var
n,i:integer;
begin
readln(n);
while i<n do
begin
i:=i+1;
writeln(i);
end;end.