сколько существует целых положительных чисел , меньших 2015, квадрат которых делится без остатка на 15 ?

var k,i:integer;begink:=0;for i:= 1 to 2015 doif  sqr(i) mod 15=0 then inc(k);writeln('k=',k);readln;end.

Всего 134 числа. См приложение.