Напишите программу перестановки значений переменных в порядке возрастания. Используйте процедуру swap

program z5;
procedure swap (var x,y: integer);
var m: integer;
begin
m:=x;
x:=y;
y:=m
end;

var a, b, c: integer;
BEGIN
Writeln('Введите значения a, b, c');
Readln(a, b, c);
if a>b then swap (a, b);
if a>c then swap (a, c);
if b>c then swap (b, c);

writeln (a, ' ', b, ' ', c);
END.