Giúp mk câu này với mk cần gấp! Lập trình nhập vào từ bàn phím 3 số nguyên a,b,c. Đưa ra màn hình giá trị lớn nhất và nhỏ nhất t

Program bai_tap;

Uses crt;

Var a,b,c,max,min: integer;

Begin 

Writeln (‘nhap a,b,c=’); 

Readln (a,b,c);

If a>b then max:= a else max:= b;

If c>max then max:= c;

If a<b then min:=a else min:=b;

If c<min then min:=c;

Writeln (‘so lon nhat la:’, max);

Writeln (‘so nho nhat la:’, min);

Readln

End.