Поочередно вводятся целые числа, не превышающие по значению 100. Для каждого из них нужно вывести результат от целочисленного деления на 2. Если вводится число больше 100, цикл прекращает работу.

var

 n:integer;

begin

 write('Введите число <=100: '); readln(n);

 if n>100 then

   exit

     else

       repeat

         writeln('Результат: ',n div 2);

         write('Введите число <=100: '); readln(n);

       until n>100;

end.

Если моё решение вам , отметьте его как лучшее ! Удачи!