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

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

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

var i, j: integer;
  begin
    readln(i);
    while i>=1 do
      begin
        for j:=1 to i do
          writeln(j);
        readln(i);
      end;
    writeln('Error');
    readln();
  end.