Помогите составить программку вычисления в Pascal функции F(X), график которой имеет

function f(x:real):real;
  begin
  if xlt;=0 then f:=-x
  else
    if xlt;=1 then f:=x
    else
      if xlt;=3 then f:=1
      else f:=4-x
  end;

begin
  Writeln('F(-0.7)=',f(-0.7));
  Writeln('F(0.3)=',f(0.3));
  Writeln('F(2.46)=',f(2.46));
  Writeln('F(3.6)=',f(3.6))
end.

Результаты
F(-0.7)=0.7
F(0.3)=0.3
F(2.46)=1
F(3.6)=0.4