Определить и вывести на экран количество трехзназных чисел ,которые делятся 3 , 5 и 7 одновременно

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