{ 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.