Метод трапеций для решения задач Коши

uses crt;
function F(x:real):real;
begin
 F:=exp(x)/x;
end;
const
n=5;
var y,a,b,h,k,s:real;
    i:integer;
begin
clrscr;
write('введите y(0)=');
readln(y);
write('начало отрезка a=');
readln(a);
write('конец отрезка b=');
readln(b);
h:=(b-a)/n;
s:=(F(a)+F(b))/2;
k:=a;
for i:=1 to n-1 do
 begin
  k:=k+h;
  s:=s+F(k);
 end;
s:=y+s*h;
write('результат: ');
writeln (s );
end.

uses crt;
function F(x:real):real;
begin
 F:=exp(x)/x;
end;
const
n=5;
var y,a,b,h,k,s:real;
    i:integer;
begin
clrscr;
write('введите y(0)=');
readln(y);
write('начало отрезка a=');
readln(a);
write('конец отрезка b=');
readln(b);
h:=(b-a)/n;
s:=(F(a)+F(b))/2;
k:=a;
for i:=1 to n-1 do
 begin
  k:=k+h;
  s:=s+F(k);
  writeln('i=',i+1,' x=',k:5:2,' f=',f(k):8:4);
 end;
s:=y+s*h;
write('результат: ');
writeln ('S=',s:0:2);
end.