Составьте программу, с которой определите все четырёхзначные номера машин, сумма двух двузначных чисел которых составляет 100( на языке pascal)

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.ъяснение: