Помогите решить плиз....

Question

Помогите решить плиз....

---

Answer 1

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  Writeln('y=',x<0?25-x:sqr(cos(x))-x)<br>end.

Answer 2

Var x,y:real;
Begin
Write('x = ');ReadLn(x);
if x < 0 then y:=25-x
else y:=Sqr(Cos(x))-x;
WriteLn('y = ',y);
End.