Question

Надо в pascal перевести
Помогите пожалуйста!) ​

Answer 1

                                       PascalABC.NET

begin

 var x := ReadReal('Введите x =');

 var y: Real;

 if x > 2.5 then

     y := x - 2

   else

     if x < 0 then

         y := x*ln(abs(cos(x)))

       else  

         y := 1+x*x;

 writeln('y = ',y);

end.

Answer 2

Это не к тому, чтобы решение похаять, это лишь альтернативное решение