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ữ" .

uses crt;

var a,b:integer

begin

clrscr;

write('nhap so ban nam: ');readln(a);

write('nhap so ban nu: ');readln(b);

if a>b then write(' số bạn Nam đông hơn bạn Nữ" ) else write('số bạn Nữ đông hơn bạn Nam');

readln;

end.

Program Hotboy;

Uses crt;

Var a,b : byte;

Begin

Clrscr;

Write('nhap so ban nam'); readln(a);

Write('nhap so ban nu'); readln(b);

If a>b then write('so ban nam nhieu hon ban nu') ;

If a<b then write('so ban nu nhieu hon so ban nam'); 

If a=b then write('hai ben bang nhau');

Readln

End.