Прога в Паскале

[GaJIbI4]

Нужно написать программу: произвести обработку 15 целых чисел подсчитать количество нулевых чисел и вычислить квадраты чисел, входящих в диапазон [-5..5].

[puporev]

k0:=0;
repeat
readln(n);
if n=0 then k0:=k0+1
else if (n>=-5)and(n<=5) then wrteln('kvadrat chisla ',n,' =',sqr(n));
until n>15;
write('Kolichestvo nolej = ',k0);

[GaJIbI4]

нужно с помощью оператора for решить задачу...

[puporev]

Ну дак создай массив a:array[1..15]of integer;
наполни его числами вручную или рандомно и в цикле
for i:=1 to 15 do
begin
напиши то, что я тебе написал.
Впредь пиши условие полностью, с набросами кода, который смог осилить сам, и с вопросом, что не получается.