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

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

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

var   a,i:integer;
begin
   writeln('vvedite chislo');
   readln(a);

   while (a > 0) do
   begin
      for i:=1 to a do
         write(i, ' ');
      writeln();

     writeln('vvedite chislo');
     readln(a);

    end;

   writeln('konec!');
   readln();
end.