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

program z1;var k,i:integer;begink:=0;for i:=99 downto 5 doif (i mod 5=0)and(i mod 7=0) thenk:=k+1;writeln (k);end.