Урок 13.1 Задание 6

Задание 6 Урок 13.1

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

var a,i: integer;
begin
  a:=0; 
  begin
    while a > -1 do
    a:=a+1;
    writeln ('введи число a'); 
    readln (a);
    begin
      if a>-1 then
        begin
          for i:=1 to a do
          write (i,' ');
          i:=i+1;
        end
      else 
      write('oshibka');
    end;
  end;
end.

Konsol

введи число a
15
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15