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

Обращайтесь)

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