program bai1;
uses crt;
var a,b: integer;
begin
clrscr;
write('nhap so a ='); readln(a);
write('nhap so b ='); readln(b);
writeln(' hai so vua nhap la so: ' ,a,' va ',b);
if a> b then writeln('so lon nhat la : ' ,a) else
writeln('so lon nhat la : ' ,b);
readln;
end.
đó là đáp án của mình