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

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

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

var a, i: integer;
begin
   writeln('Введите целое число:');
   readln(a);
   while a >= 1 do
    begin
     for i := 1 to a do
      write(i, ' ');
     writeln('Введите целое число:');
     readln(a);
    end;
   writeln('Ошибка');
   readln();
end.