Pascal дано действительное число x. вычислить f(x), если

Var x,y: real;
begin
readln(x);
if x<=0 then y:=0
else if (x>0) and (x<=1)
then y:=x*x-x else
y:=x*x-sin(pi*x*x);
write(y);
end.