Помогите ,это нужно сделать в Паскаль

Question

Помогите ,это нужно сделать в Паскаль

---

Answer 1

Program n1;
var x,y: real;
begin
writeln('введите точку Х');
readln(x);
if x<0 then y:=x else<br>if x>=0 and x<=1 then y:=0 else<br>if x>1 then y:=x*x-x;
writeln('f(x)=',y);
end.