Uses crt;
Var a, b: integer;
Begin
Clrscr;
Write('Nhap so a = '); readln(a);
Write('Nhap so b = '); readln(b);
If a<b then writeln('Gia tri nho nhat la: ',a) else writeln('Gia tri nho nhat la: ',b);
If a>b then writeln('Gia tri lon nhat la: ',a) else writeln('Gia tri lon nhat la: ',b);
Readln
End.