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.