1. Разработать подпрограмму для вычисления значения функции (функция определена в таблице 1). Значение функции вычислять с точностью до тысячных долей.

Рассмотреть два варианта реализации подпрограммы: подпрограмма-процедура и подпрограмма-функция.

Использовать подпрограмму для построения таблицы значений функции в 10 различных точках.

function Fx(x:real):real;begin  if x=1 then Fx:=1e18 { вместо бесконечности }  else if x<0 then Fx:=exp(-x)  else if x<=4.5 then Fx:=1-ln(abs(1-x*x))  else Fx:=2*xend;procedure Px(x:real; var y:real);begin  if x=1 then y:=1e18 { вместо бесконечности }  else if x<0 then y:=exp(-x)  else if x<=4.5 then y:=1-ln(abs(1-x*x))  else y:=2*xend;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.