Составить программу в паскале для вычисления функции по формуле:

var x,y: real;beginwrite('x = ');readln(x);if (x>=0)and(x<=1) then y:=x*x-xelse y:=x*x-sin(pi*x*x);writeln('y = ',y:6:4);end.Пример:x = 1.5y = 1.5429