var a: array[1..10] of real; sum, pr: real; i: integer; begin pr := 1; for i := 1 to 10 do begin readln(a[i]); sum := sum + a[i]; pr := pr * a[i]; end; writeln('Summa = ', sum:1:2); writeln('Proizvedenie = ', pr:1:2); end.