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

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

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

var
  i, a: integer;
begin
  writeln('Vvedite celoe pologitelnoe chislo: ');
  readln(a);
  if (a > 0) then
     begin
       for i:= 1 to a do
           write(i, ' ');
     end
  else
  writeln('Oschibka!!!. Chislo dolgno bit >0');
  readln();
end.