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

Паскаля под рукой не имею, поэтому не могу проверить, но должно быть так: c)var x,f : real;begin  writeln("Введите X: ");  readln(x);  if(x<0)  then     f:=((1-cos(2*x))/2 - (1+cos(2*x))/2);  else    if(x>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(x<-2)  then    f:=abs(2*x-2);  else    if(x>5)    then      f:=x*x*x*x;    else      f:=sin(x);  writeln("F(x)=", f:6:2);end.