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.