1.Написать
процедуру, меняющую значения двух переменных а и b местами.
2.Используя
процедуру обмена значений двух переменных, упорядочьте по возрастанию
переменные a, b, c.

Procedure Swap(var a, b: object);var c: object := a;begin  a := b;  b := c;end;var  a, b, c: byte;begin  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);  if (b > c) then Swap(b, c);  writeln(a, b, c);end.