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

http://fkn.ktu10.com/?q=node/8697

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

program task6_lesson13_1;
var n, i : integer;
begin
  writeln('Enter number more then 0 :');
  readln(n);
  if n <= 0 then
     writeln('ERROR')
  else
        for i := 1 to n do
              write(i, ' ');
  readln();
end.