Program Pas;
Var
  x, y : real;
Begin
  write('Введите x - ');
  readln(x);
  if (x<0) then y:= cos(x);
  if ((x>=0) and (x<=Pi)) then y:=1;
  if (x>Pi) then y:= sin(x)+1;

  writeln (y);
End.