Даны три числа , если они расположены по возрастанию, то увеличить каждое в три раза, если по убыванию, то уменьшить

Program zadacha1;Var a, b, c, sum: integer;Beginwrite (a, b, c);readln (a, b, c);if (a > b) and (b > c) then begina := a + 3;b := b + 3;c := c + 3;writeln (a, b, c);end;if (a < b) and (a < c) then begina := a - 3;b := b - 3;c := c - 3;writeln (a, b, c);end;else beginsum := a + b + c;writeln sumend;end.