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

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

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

var i, x, c :integer;
begin
  i := 0;
  while (i >= 0) do
    begin
      writeln('vvedi celoe chislo');
      readln(i);
      if(i >= 0) then
        for c := 1 to (i) do
          write(c , ' ')
      else
        writeln('ERROORR');
    end;
end.