определите и выведите на экран кол-во натуральных чисел меньших 100 и делящихся на 5 и 7 одновременно

program z1;
var k,i:integer;
begin
k:=0;
for i:=99 downto 5 do
if (i mod 5=0)and(i mod 7=0) then
k:=k+1;
writeln (k);
end.