Program hh16_74;<br/>
var A:array[1..100] of string;<br/>
    n,i,count:byte;<br/>
BEGIN<br/>
write('Введите количество элементов массива (n<=100)');<br/>
readln(n);<br/>
writeln('Введите значения чисел');<br/>
for i:=1 to n do<br/>
readln(A[i]);<br/>
count:=0;<br/>
write('Номера элементов массива кратных четырем:');<br/>
for i:=1 to n do<br/>
if (A[i]='0') or<br/>
(copy(A[i], length(A[i])-1, 2)='00') then<br/>
 begin<br/>
 count:=count+1;<br/>
 write(i, '');<br/>
 end;<br/>
writeln('их количество',count);<br/>
END.<br/>
</p>