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

var
i,n: integer;
begin
n:=0;
for i:=100 to 999 do
if (i mod 100=0) or (i mod 43=0) then
   begin
   n:=n+1;
   writeln (i);
   end;
 writeln (количество чисел кратных 100 или 43= ,n);
end.