Ar fi mai bine daca ai fi scris intrebarea, dar nu ai trimitea foto cu caietu, dar cred ca am inteles:
var
A:array[1..50] of integer;
i,n,p:integer;
ok:boolean;
begin
read(n);
for i:=1 to n do
begin
read(A[i]);
if A[i]>3 then
begin
if ok=false then p:=1;
p*=a[i];
ok:=true;
end;
end;
if p=0 then writeln('Nu sint elemente mai mari ca 3')
else writeln(p);
end.
