Мне уже помогли вот рабочая программа
uses graph;
function F1(x:real):real;
begin
F1:=exp(x+1);
end;
function F2(x:real):real;
begin
F2:=exp(1-x);
end;
function F3(x:real):real;
begin
F3:=(sqr(x)/2)+6;
end;
var xn,xk,max,min,x,y,m,dx,h:real;
x0,y0,i,px,py,n:integer;
s:string;
begin
x0:=0...