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

Вложенные циклы

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

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