Поочередно вводятся целые числа, не превышающие по значению 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.

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

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

1)false (т.к. x> y)

2)true (x< y,x не равен y)

3)false(x> y)

4)true(т.к. x=y, x не равен y)