07

  var i,n: integer;
  begin
  for i:=100 to 999 do begin
  if (i mod 3 = 0) and (i mod 5 = 0)and (i mod 7 = 0) then inc(n);
  end;
  writeln('Количество трёхзначных чисел, одновременно делящихся на 3, 5 и 7: ', n);
  end.