Viết chương trình bằng ngôn ngữ lập trình Turbo Pascal nhập 3 số a, b, c từ bàn phím (a, b, c: số nguyên <=250). Hãy đưa ra giá trị lớn nhất và giá trị nhỏ nhất trong 3 số đó

Uses crt;

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

Begin

     Clrscr;

     Write('Nhap a = '); readln(a);

     Write('Nhap b = '); readln(b);

     Write('Nhap c = '); readln(c);

     min:=a;

     If b<min then min:=b;

     If c<min then min:=c;

     Writeln('Gia tri nho nhat la: ',min);     

     max:=a;

     If b>max then max:=b;

     If c>max then max:=c;

     Writeln('Gia tri lon nhat la: ',max);

     Readln

End.

uses crt;

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

begin

 clrscr;

  write ('nhap a: ');  readln (a);

  write ('nhap b: ');  readln (b);

  write ('nhap c: ');  readln (c);

max:=a;

if max<=b then max:=b;

if max<=c then max:=c;

writeln ('so lon nhat: ',max);

min:=a;

if min>=b then min:=b;

if min>=c then min:=c;

writeln ('so nho nhat: ',min);

readln;

end.