Viết chương trình bằng ngôn ngữ lập trình Free Pascal yêu cầu người dùng nhập vào chiều cao của 2 bạn Nam và Bình. Sau đó thực hiện các nội dung sau:

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.