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

program zz1;
var i:integer; // задаем переменные для цикла
begin
for i:=100 to 999 do // перебираем все трехзначные числа
if (i mod 100 = 0) or (i mod 43 = 0) then write(i, ); // проверяем, если трехзначное число делится на 100 либо 40 три, то выводим его на экран в строку через пробел

end.