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.