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

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

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

program  u131z6;
var i, n: integer;

begin

 i:=1;

  repeat
  begin
   writeln('vvedite chislo');
   readln(i);
     for n:= 1 to i do
        write(n,' ');
  end;
  until (i < 0);
  writeln ('oshibka');
  readln();

end.