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

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

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

var a : integer;

begin
  while (true) do
  begin
    write('Enter an integer : ');
    readln(a);
    if (a > 0) then
      for a := 1 to a do
        write(a, ' ')
    else
      writeln('This is mistake');
  end;
  read();
end.