Решение задачи 6 из главы 13.1

Решение задачи 6 из главы 13.1

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

program Project6;
var i, a: integer;
begin
  writeln('Vvedite zeloe polozhitelnoe chislo:');
  readln(i);
  while (i >= 1) do
       begin
            for i:=1 to i do
                writeln(i, ' ');
                writeln('Vvedite zeloe polozhitelnoe chislo:');
                readln(i);
       end;
  writeln('Vy vveli otrizatelnoe chislo!');
  readln();
end.