Помогите составить программу (решить систему уравнений) на Pascal

F(x)=sqr(x)-x, если 0<=x<=1;
F(x)=sqr(x)-sin(Pi)*sqr(x), если x>1 или x<0

var x,f: real;

begin

write('x = ');

readln(x);

if (x>=0)and(x<=1) then f:=sqr(x)-x

else f:=sqr(x)-sin(pi*sqr(x));

writeln('F = ',f:6:4);

end.

Пример:

x = 0.5

F = -0.2500