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

Урок 13.1

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

var a, i: integer;

begin
  writeln('Vvedite polozhitelnoe celoe chislo');
  readln(a);

    while (a = a) do
    begin

      if (a < 1) then
        writeln('Error')
        
      else
      begin
      
        for i := 1 to a do
          writeln(i);
          
      end;

      writeln('Vvedite polozhitelnoe celoe chislo');
      readln(a);

    end;

end.

КОНСОЛЬ

Vvedite polozhitelnoe celoe chislo
3
1
2
3
Vvedite polozhitelnoe celoe chislo
-3
Error
Vvedite polozhitelnoe celoe chislo
3
1
2
3
Vvedite polozhitelnoe celoe chislo
7
1
2
3
4
5
6
7
Vvedite polozhitelnoe celoe chislo