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