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