Задание 6 Урок 13.1

Задание 6 Урок 13.1

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

var i,i1 : integer;

begin
  i := 1;
  while (i > 0) do
  begin
    write('Введите число и нажмите ENTER:  ');
    readln(i);
    if (i > 0) then
      for i1 := 1 to i do
        write(i1, ' ');
      	writeln();
  end;
  write('ОШИБКА! нажмите ENTER!');
  readln();
end.