uses crt;
var a, b : real;
begin
clrscr;
write('Nhap chieu cao Nam, Binh : '); readln(a, b);
writeln('Tong chieu cao 2 ban : ', a + b : 2 : 1);
writeln('Trung binh chieu cao 2 ban : ', (a + b) / 2 : 2 : 1);
if a > b then writeln('Nam cao hon');
if a < b then writeln('Binh cao hon');
if (a > 7) and (b > 7) then writeln('Chieu cao dat chuan')
else writeln('Chieu cao khong dat chuan');
readln
end.