Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка на 15 и 17 одновременно

Program danya;
uses crt;
var i,k:integer;
begin
clrscr;
k:=0;
for i:=1000 to 9999 do begin
if (i mod 15=0) and (i mod 17 =0) then k:=k+1; end;
Writeln('Количество чисел= ', k);
readln;
end.