Помогите решить задание

Question

Помогите решить задание

---

---

Answer 1

Var
  x,y:real;
 
begin
  Read(x,y);
  if x  else y:=2*y-x;
  Writeln(y)
end.

---------------------

var
  x,y:real;
 
begin
  Read(x);
  if x<0 then y:=Sin(x)<br>  else
    if x>2 then y:=2*x*x
    else y:=Sqr(Cos(x));
  Writeln(y)
end.

Comments

спасибо большое

---

Пожалуйста