Var result, x : real;const Pi = 3.14;function f(temp : real) : real;
begin
if temp <= 0 then<br> f := 0
else
if (temp > 0) and (temp <= 1) then<br> 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.