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

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

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

var m, a: integer;

begin
  a:=1;
  while a>0 do
  begin
    writeln('vvedite chislo : ');
    readln(a);
    m:=1;
      while m<=a do
      begin
        write (m, ' ');
        m:=m+1;
      end;
  writeln();
  end;
    writeln('oshibka');
  writeln();
  writeln('<<Konec>>');
  readln();
end.