Question

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

Answer 1

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.

Answer 2

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

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