Составьте программу для нахождения количества чисел, кратных 3
и 5 в интервале от 300 до 1000.

var i,k:integer;begink:=0;for i:=300 to 1000 dobeginif (i mod 3=0) and (i mod 5=0) thenbegink:=k+1;end;end;writeln(k);end.