Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a= ');readln(a);
write('Nhap b= ');readln(b);
if a>b then writeln('a lon hon b') else writeln('b lon hon a');
readln;
end.
Câu 2:
uses crt;
var An,Minh:real;
begin
clrscr;
write('Nhap can nang cua An= '),readln(An);
write('Nhap can bang cua Minh= ');readln(Minh);
if An>Minh then writeln('An nang hon Minh')
else writeln('Minh nang hon An');
readln;
end.