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 trong 3 số đó?

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.

uses crt;

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

begin

clrscr;

write('Nhap 3 so a, b, c : '); readln(a, b, c);

max := a; min := a;

if b > max then max := b;

if c > max then max := c;

if b < min then min := b;

if c < min then min := c;

writeln('Max = ', max);

writeln('Min = ', min);

readln

end.