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

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

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

program lesson13_6;
var
    a, i : integer;
begin
    repeat
        writeln('enter number a');
        readln(a);
        if a <= 0 then
            writeln('error')
        else
            for i := 1 to a do
                write(i, ' ');
        writeln();
	until a <= 0;
    readln();
end.