Ответ:

program kek;var a , b: real;i: integer;beginfor i := 1000 to 10000 dobegin    a := i mod 100;    b := i div 100;    if a + b = 100 then        writeln(i)end;end.

Ответ:

Обprogram kek;var a , b: real;i: integer;beginfor i := 1000 to 10000 dobegin    a := i mod 100;    b := i div 100;    if a + b = 100 then        writeln(i)end;end.ъяснение: