Program lef;
var i,x:int64;
    y:real;

procedure schet(x: int64;var y:real);
begin
y:=1-(x/(x+1))+(power(x,3)/power(x+1,2))-(power(x,5)/power(x+1,3))
end;

begin
  write('Введите число X: ');
  readln(x);
  schet(x,y);
  writeln('Y: ', y);
end.