Составьте программу на языке Паскаль, с помощью которой определите все четырехзначные номера машин, сумма двух двузначных чисел которых составляет 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.