Umiestnenie súboru www.TrSek.com/zadania/serad3.pas{ SERAD3.PAS Copyright (c) Pavel Patak }
{ Seradi tri cisla podle velikosti. }
{ }
{ Datum:28.10.2004 http://www.trsek.com }
Program SeradTri;
Var A,B,C,D : Integer;
Begin
Write('Zadej tri cisla : ');
Readln(A,B,C);
if A>B then {Usporadame prvni dvojici}
begin
D:=A;
A:=B;
B:=D;
end;
if B>C then {Usporadame druhou dvojici}
begin
D:=B;
B:=C;
C:=D;
end;
if A>B then {Pokud bylo na zacatku C > A, je nutne prohazovat jeste jednou}
begin
D:=A;
A:=B;
B:=D;
end;
Writeln(A,' < ',B,' < ',C);
Readln;
End.