Урок 13.1 Задача 6

Урок 13.1 Задача 6

Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.

Решение:

var n : integer;

begin
  while (true) do
    begin
      writeln('Введите целое число');
      readln(n);
      if (n > 0) then
        for n := 1 to n do
          writeln(n, ' ')
      else
        writeln('Ошибочка');
  end;
  readln();
end.