Cho 3 số a b c viết chương trình tìm giá trị lớn nhất và nhỏ nhất của 3 số đó

var a,b,c,i:integer;

          MX,MN:real;

begin

write(‘nhap a’);readln(a);

write(‘nhap b’);readln(b);

write(‘nhap c’);readln(c);

MX:=a;MN:=a;

if MX<b then MX:=b;

if MX<c then MX:=c;

if MN<b then MN:=b;

if MN<c then MN:=c;

writeln(‘Min=’,MN);

writeln(‘Max=’,MX);

readln;

end.