program Hello;
type arr=array[1..10] of real;
var a:arr;
suma, produs:real;
i:integer;
procedure sumaElementelor(a:array of real);
begin
suma:=0;
for i:=0 to 9 do begin
suma:=suma+a[i];
end;
writeln(suma:2:2);
end;
function produsulElementelor(a:array of real):real;
begin
produs:=1;
for i:=0 to 9 do begin
produs:=produs*a[i];
end;
produsulElementelor:=produs;
end;
begin
writeln ('Dati elementele tabloului:');
for i:=1 to 10 do begin
readln(a[i]);
end;
sumaElementelor(a);
writeln(produsulElementelor(a):2:2);
end.
