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

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

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

var a,i: integer;
begin
readln(a);
if a<0 then write('ошибка')
else for i:=1 to a do
        write(i,' ');
writeln();
end.