Question

Написать программу, которая вводит натуральное число N и выводит первые N натуральных чисел. (РЕШИТЬ ЗАДАЧУ С ИСПОЛЬЗОВАНИЕ ПРЕДУСЛОВИЯ)
ВОТ ТАКИМ СПОСОБОМ:
var a, i:integer;
begin
write('Введите натуральное число: ');
readln(a);
if (a <= 0) then
writeln('Ошибка')
else begin
for i:=1 to a do
writeln(i);
end;
end.

Answer 1

var a, i: integer;

begin

write('Введите натуральное число: ');

readln(a);

i:=1;

if (a <= 0) then

writeln('Ошибка')

else begin

while i <= a do begin

writeln(i);

i:= i + 1;

end;

end;

end.