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

Program zadacha1;

Var a, b, c, sum: integer;

Begin

write (a, b, c);

readln (a, b, c);

if (a > b) and (b > c) then begin

a : = a + 3;

b : = b + 3;

c : = c + 3;

writeln (a, b, c);

end;

if (a < b) and (a < c) then begin

a : = a - 3;

b : = b - 3;

c : = c - 3;

writeln (a, b, c);

end;

else begin

sum : = a + b + c;

writeln sum

end;

end.