Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
1: Writeln('y = ', x*x);
2: Writeln('y = ', cos(x));
3: Writeln('y = ', sin(x));
4: Writeln('y = ', abs(x));
end;
end.
1710
или я не понял вопроса
3+25+125-36=117 (117-3)=285
8+25+125-36=122 (122-8)=285
12+25+125-36=126 (126-12)=285
но все эти выражения равносильны 114*2.5, т. к. ты сначала прибавляешь задуманное число, а потом его же вычитаешь