Viết chương trình nhập số bạn nam và số bạn nữ trong lớp em, in ra màn hình kết quả so sánh bên nào đông hơn , chẳng hạn " số bạn Nữ đông hơn bạn Nam " hay " số bạn Nam đông hơn bạn Nữ" .

Program Hotboy ;

Uses crt;

Var x,y : byte;

Begin

Clrscr;

Write('nhao so hoc sinh nam');Readln(x);

Write('nhao so hoc sinh nu'); readln(y);

If x> y then write('so nam dong hon nu') else write('so nu dong hon nam');

Readln

End.

Proggram Bai_1;

uses crt;

var a,b:integer;

Begin

clrscr;

writeln('So ban nam la:');

readln(a);

writeln(So ban nu la:');

readln(b);

if a> then writeln('So ban nam dong hon ban nu')

else writeln('So ban nu dong hon ban nam');

readln

End