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

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

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

var i,a: integer;
begin
  writeln('vvedite 4islo > 0 - ');
  readln(i);
    if (i < 0) then
       writeln('oshibka!')
    else
       for a := 1 to i do
       write(a, ' ');
   readln();
end.