Program NN;
Uses crt;
Var n,b,s: longint;
    tbc: real;
Begin
        Clrscr;
        Write('Nhap chieu cao Nam va Binh (cm): '); Readln(n,b);
        s:=n+b;
        tbc:=s/2;
        Writeln('S = ',s);
        Writeln('TBC = ',tbc:0:2);
        If n>b then Writeln('Nam cao hon')
        Else If b>n then Writeln('Binh cao hon')
        Else Writeln('Cao bang nhau');

        If n>700 then Writeln('Nam dat chuan')
        Else Writeln('Nam khong dat chuan');

        If b>700 then Write('Binh dat chuan')
        Else Write('Binh khong dat chuan');
        Readln
End.

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.