viết chương trình nhập vào 2 số nguyên bất kì , in ra màn hình số lớn hơn trong hai số

Lời giải:

program abc;
uses crt;
var a,b,max : integer;
begin
clrscr;
write ( ' nhap a =' );
readln (a);
write ( ' nhap b = ');
readln (b);
a:=max;
if max<b then max:=b;
write ( ' so lon nhat la',max);
readln;
end.