Program Pascal;
Uses Crt;
Var A: Array[1..3] of Integer;
Max,Min: Integer;
i: Byte;
Doi: Integer;
B: Boolean;
Begin
Clrscr;
Write('A= ');
Readln(A[1]);
Write('B= ');
Readln(A[2]);
Write('C= ');
Readln(A[3]);
Repeat
B:= True;
For i:=1 to 2 do
If A[i] < A[i+1] then
Begin
Doi:=A[i];
A[i]:=A[i+1];
A[i+1]:=Doi;
End;
For i:=1 to 2 do
If A[i] < A[i+1] then B:= False;
Until B= True;
Writeln('Gia tri lon nhat: ',A[1]);
Writeln('Gia tri trung gian:',A[2]);
Writeln('Gia tri be nhat: ',A[3]);
Readln
End.