Паскаль программы. Расположите числа a,b,c integer в порядке возрастания. Помогите мне,…

var a, b, c: integer; procedure swap (var a, b: integer); var k: integer; begin k: =a; a: =b; b: =k; end; begin read (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.