Объяснение:
var
s:array[1..10000] of longint;
a,b,i:longint;
begin
read(a);
b:=0;
for i:=1 to a do
read(s[i]);
if (s[i]=4) then inc(b);
end;
write(b);
end.
