Program op_hui;
Type mas=array[1..10] of real;
Var
n,i:real;
K: real;
a:mas;

Procedure poisk(n1:integer;Var a1:mas; Var K1:real);
Var i1:integer;

begin
k1:=0;
for i1:=1 to n1 do

if a mod 4=0 then
k1:=k1+1;

end;

begin {k}
writeln('Ты ленивый уебок');
readln(n);
for i:=1 to n do
begin
write('a[',i,']');
read(a);
end;

poisk(n,a,sr);
for i:=1 to n do
begin
if a mod 4=0 then
a:=k1;
writeln(a);
end;
end.

>>152901824
не ленивый, а тупой