Program bai1;
uses crt;
var a,b: longint;
begin
clrscr;
write('nhap so thu nhat = ');
readln(a);
write('nhap so thu hai =');
readln(b);
if a > b then writeln(a , ' la so lon nhat ');
if a < b then writeln(b , 'la so lon nhat ');
if a = b then writeln('khong co so nao lon nhat ');
readln;
end.

program sln;
var a,b:integer;
begin
writeln('nhapa');readln(a);
writeln('nhapb');readln(b);
if(aif(bend.