uses CRT;
var a:array[1..6] of integer;
    i,s,p:integer;
begin
clrscr;
writeln('vvedite 6 chisel');
for i:=1 to 6 do
readln(a[i]);
s:=0;
p:=1;
for i:=1 to 6 do
 if a[i]>10 then begin s:=s+a[i]; p:=p*a[i]; end;
write('Summa = ',s,' ',' proizvedenie = ',p);
readln
end.