program p2;
type vector=array[1..100] of real;
var A:vector;i,n:integer;P,S:real;
procedure proSum(A:vector;n:integer;var s,p:real);
var i:integer;
begin
p:=1;S:=0;
for i:=1 to n do begin
if i mod 2=0 then P:=P*A[i];
if i mod 2=1 then S:=S+A[i];
end;
end;
Begin
write('n=');readln(n);
writeln('introdu elementele
vectorului');
for i:=1 to n do
readln(A[i]);
Writeln('Vectorul introdus este:');
for i:=1 to n do Write(A[i]:3);
writeln;
ProSum(a,n,P,S);
if S=P then writeln('Da')else writeln('Nu');
readln
end.
succes
