Пожалуйста посчитайте решить задание

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

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

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