Пользователь вводит целое от 0 до 200 число. Если оно больше 100, то выведите ** экран...

Question

Пользователь вводит целое от 0 до 200 число. Если оно больше 100, то выведите на экран все числа от этого число до 1, иначе же все числа от этого числа. Создайте программу, отладьте ее на компьютере (Pascal)

Answer 1

var a: integer;

begin

 readln(a);

 while(a < 0) or (a > 200) do begin

   readln(a)

   end;

 if(a > 100) then

   begin

     while (a > 0) do begin

       writeln(a);

       a := a -1

     end;

   end

 else begin

   while (a

     writeln(a);

     a := a + 1

   end;

 end;

end.