uses crt;

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

begin

clrscr;

write('nhap ba so a,b,c: ');readln(a,b,c);

max:=a;

if b>max then max:=b;

if c>max then max:=c;

write('so lon nhat la: ',max);

min:=a;

if b<min then min:=b;

if c<min then min:=c;

write('so nho nhat la: ',min);

if (min<a) and (a<max) then write(min:2,a:2,max:2);

if (min<b) and (b<max) then write(min:2,b:2,max:2);

if (min<c) and (c<max) then write(min:2,c:2,max:2);

readln

end.

Bạn chạy thử mình ngẫu hứng viết ctr không biết có chạy được không nưa

uses crt;
var i,j,t:longint; a:array[1..3]of longint;
begin 
clrscr;
   write('Nhap a,b,c: ');readln(a[1],a[2],a[3]);
   for i:=1 to 2 do 
      for j:=i+1 to 3 do 
         if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
   writeln('So lon nhat: ',a[3]);
   writeln('So nho nhat: ',a[1]);
   writeln(a[1],' ',a[2],' ',a[3]);
readln
end.