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

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