Ai giải hộ mình hứa cho 5☆ Viết chương trình nhập 2 số a , b từ bàn phím và in ra giá trị lớn nhất và giá trị nhỏ nhất

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.

Program Kt _so_lon_nhat_nho_nhat;
Uses crt;
Var a, b : integer;
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 la :",max); 
min:=a; 
if min>b then min:=b; 
writeln ("So nho nhat la :",min); 
readln; 
End.