program Hello; uses crt; var j,i: longint; h,q,p,x:real; procedure tinh(); begin p:= 1; for i:= 1 to j do begin read(x); if x > h then p:= p * x else q:= q + x; end; end; begin readln(j,h); tinh(); writeln('tich: ', p:3:3); writeln('tong: ', q:3:3); readln; readln; end.
