Найти количество натуральных чисел в диапазоне от 50 до 99 кратные 3 и 7

Program z7;
var i,w:integer;
begin
 w:=0;
 for i:=50 to 99 do begin
  if (i mod 3 = 0) and (i mod 7 = 0) then
    w:=w+1;
  end;
  writeln(w);
end.