Program elemente;
type vector=array[1..10] of integer;
var m:vector; i,s,p:integer;
begin
for i:=1 to 10 do begin
write('m[,i,']='); readln(m[i]); end;
for i:=1 to 10 do
s:=s+m[i];
for i:=1 to 4 do
p:=p*m[i];
writeln('Suma=,s);
writeln('Produsul=',p);
readln; end.