Паскаль. ввести с клавиатуры 3 числа. вывести их на экран в порядке возрастания. !

Procedure Swap(var A, B : Integer); begin A := A + B; B := A - B; A := A - B; end;  var A, B, C : Integer; begin Write('Введите A B C : '); ReadLn(A, B, C); if A < B then Swap(A, B); if B < C then Swap(B, C); if A < B then Swap(A, B); WriteLn(A, B, C); end.

var   a, b, c: integer;   begin   Read(a, b, c);   if ((a > b) and (a > c) and (b > c)) Then     Write(a, ' ', b, ' ', c)   else   if ((b > a) and (b > c) and (a > c)) Then     Write(b, ' ', a, ' ', c)   else   if ((c > a) and (c > b) and (a > b)) Then     Write(c, ' ', a, ' ', b)   else   if ((b > a) and (b > c) and (c > a)) Then     Write(b, ' ', c, ' ', a)   else     Write(c, ' ', b, ' ', a) end.