Напишите программу в Паскале

//название function f(x:real):real; begin if x<0 then f:=x    else if x=0 then f:=sin(x+1)      else f:=cos(2*x); end; begin write (f(readreal('Введите x: '))); end.