prgram ss;
uses crt;
var a,b:longint;
begin
write('Nhap so thu nhat');readln(a);
write('Nhap so thu hai');readln(b);
if a>b then write('So lon hon la: ',a)
else write('So lon hon la: ',b);
readln
end.
Program bai1;
uses crt;
var a,b: longint;
begin
clrscr;
write('nhap so a ='); readln(a);
write('nhap so b ='); readln(b);
if a > b then writeln('a lon hon b ');
if a < b then writeln('a nho hon b ');
if a = b then writeln('a bang b ');
readln;
end.