95 БАЛЛОВ
Написать программу(pascal )
program ...
var ...

program m1;var f,x:real;begin writeln('Введите x'); readln(x); if(x<=0)then f:=0 else if((x>0)and(x<=1)) then f:=(x*x)-x else if (x>1) then f:=(x*x)-sin(3.14*(x*x)); writeln('f(x)= ', f:2:2);end.

Pasib chelik , lychij