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

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

var a,i:integer;
begin
  a:=0;
  writeln('Vvedite celoe chislo: ');
  readln(a);
  if(a<=0)then writeln('Chislo otricatelnoe.Oshibka!')
  else
    for i:=1 to a do
      write(i,' ');
end. 

Консоль:

Vvedite celoe chislo: 
-8

Chislo otricatelnoe.Oshibka!

или

Vvedite celoe chislo: 
5

1 2 3 4 5