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

Первое двухзначное число, можно найти как результат деления нацело четырехзначного числа на 100.

Второе число можно найти как остаток при делении четырехзначного числа на 100.

program number;

var i:integer;

begin

for i: = 1000 to 9999 do if (i div 100 + i mod 100 = 100) then write (i : 6)

end.