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

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.