1. Создать подпрограмму для вычисления значения функции (функция определена в таблице

Очень очень нужна помощь , нужно сделать в паскаль

Очень очень нужна помощь , нужно сделать в паскаль

Function Fx(x:real):real;
begin
  if x=1 then Fx:=1e18 заместо бесконечности
  else if xlt;0 then Fx:=exp(-x)
  else if xlt;=4.5 then Fx:=1-ln(abs(1-x*x))
  else Fx:=2*x
end;

procedure Px(x:real; var y:real);
begin
  if x=1 then y:=1e18 заместо бесконечности
  else if xlt;0 then y:=exp(-x)
  else if xlt;=4.5 then y:=1-ln(абс(1-x*x))
  else y:=2*x
end;

var
  x,y:real;
  i:integer;
begin
  for i:=-4 to 9 do
  begin
    x:=i;
    Px(x,y);
    Writeln(x:2,Fx(x):25:3,y:25:3)
  end  
end.