Помогите составить программу вычисления в Pascal функции F(X), график которой имеет следующий вид:
Получить значения функции при : 1)Х= -0,7; 2)Х= 0,3; 3)Х= 2,46; 4)Х= 3,6

function f(x:real):real;  begin  if x<=0 then f:=-x  else    if x<=1 then f:=x    else      if x<=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.7F(0.3)=0.3F(2.46)=1F(3.6)=0.4