program tim _so_lon_nhat_nho_nhat;
uses crt;
var a, b, c: integer;
Begin 
write ("Nhap so nguyen a = "); readln(a); 
write ("Nhap so nguyen b = "); readln(b); 
write ("Nhap so nguyen c = "); readln(c); 
max:=a; 
if max < b then max:=b; 
if max < c then max:=c; 
writeln ("So lon nhat trong 3 so la :",max); 
min:=a; 
if min>b then min:=b; 
if min>c then min:=c; 
writeln ("So lon nhot trong 3 so la :",min); 
readln; 
End.