Помогите плиз решить( c и d )

Паскаля под рукой не имею, потому не могу проверить, но обязано быть так: 
c)var x,f : real;begin  writeln("Введите X: ");  readln(x);  if(xlt;0)  then     f:=((1-cos(2*x))/2 - (1+cos(2*x))/2);  else    if(xgt;2)    then      f:=(x*x - x*x*x);    else      f:=(log(3*x+2));  writeln("F(x)=", f:6:2);end.
d)var x,f : real;begin  write("Введите X: ");  readln(x);  if(xlt;-2)  then    f:=абс(2*x-2);  else    if(xgt;5)    then      f:=x*x*x*x;    else      f:=sin(x);  writeln("F(x)=", f:6:2);end.