[lmikle]

Все то. За исключением очепяток.

Код:

var 
  A, B, i, count : integer;
begin
  A := 15; // Пример
  B := 3; // Пимер
  count:=0;
  for i:=0 to A do
    if (i mod B) = 0 then
      inc(count);
  ShowMessage(IntToStr(count));
end;