найти количество натуральных чисел в диапазоне от 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.