это решить вообще не понятно как делать ​

Более удобный, компактный и требующий меньше памяти код, чем у предыдущего ответа.

Пояснение:

1) вводятся два числа и забиваются в значения a и b соответственно.

2)при команды else производится отбор. Если а больше b, то  идет запись, если нет, то идет другое else, где если a меньше b, то идет запись их. В конечном случае, если не выполняется ни то, ни то, то просто выводится, что они равны, т.к больше нет никаких вариантов.

Код:

Program school6;

var a,b:real;

begin

write ('Введите первое число:');

readln(a);

write ('Введите второе число:');

readln(b);

if a>b then

   write ('Первое число больше второго на ', a-b)

 Else

   If a<b then

       write ('Второе число больше первого на ', b-a)

     Else Write('числа равны');

end.

a=2

b=8

цикл произошел два раза из-за a:=a+1

значит x равен от 100 до 9999(при прохождении получаются числа от 0,01 до 0,9999)

теперь остался b:

b в начале был равен и получил 8 при цикле. mod узнаёт остаток деления на 100 которое раза. посмотрим если выберем 9999

9999(остаток 99) -> 99,99(остаток 99+99). вывод: программа под буквой b вычислила сумма всех двузначных чисел. значит самое максимальное 800( 8 и 0) т.к. если выбрать больше 999 то 1000 это сумма 10 и 0 что не подходит. а нам надо самое максимальное.

ответ:800