Нужно написать текст программы в Паскале. Пожалуйста, помогите! Дано действительное число a. Вычислить f(a), если:

var result, x : real;const Pi = 3.14;function f(temp : real) : real; begin if temp <= 0 then  f := 0 else  if (temp > 0) and (temp <= 1) then   f := temp * temp - temp    else     f := temp * temp - sin(Pi * temp * temp); end;begin write('X = '); readln(x); result := f(x); write('f(x) = ', result : 0 : 2); end.