Написать программу : дано все 3-х значные числа найти сумму и количество чисел которые кратны 9.

Var
  i, a, p: integer;

begin
  a := 0;
  p := 0;
  for i := 100 to 999 do
  begin
    if i mod 9 = 0 then
    begin
      a := a + i;
      p := p + 1;
    end;
  end;
  writeln('Сумма = ', a);
  writeln('Кол-во чисел = ', p);
end.