program bai_giai;
uses crt;
var x,y:integer;
begin
clrscr;
readln(x,y);
writeln('Trung binh cong: ',(x+y)/2:0:2);
writeln('Trung binh nhan: ',sqrt(x*y):0:2);
readln;
end.
Giải thích:
Trung bình cộng của 2 số x,y: `(x+y)/2`
Trung bình nhân của 2 số x,y: `sqrt{(x*y)}`