Bài 1 
Begin 
write ("Nhap so nguyen a = "); readln(a); 
write ("Nhap so nguyen b = "); readln(b); 
max:=a; 
if max < b then max:=b; 
writeln ("So lon nhat trong 2  so la :",max); 
min:=a; 
if min>b then min:=b; 
writeln ("So lon nhot trong 2 so la :",min); 
readln; 
End.