Составьте программу по блок-схеме. Метод прямоугольника

program Zadanie62;
label
  NextDo;
 
function F (x1: real): real;  //Функция, в которой нужно размещать основную формулу.
begin
   F:= x1;
end;
 
var
  A,B,E,N: real;
  h,h1,y,x: real;
  step: real;
begin
writeln('Введите значение аргумента А');
Readln(a);
writeln('Введите значение аргумента B');
Readln(b);
writeln('Введите значение аргумента E');
Readln(e);
writeln('Введите значение аргумента N');
Readln(n);
h:= 0;
NextDo:
step:=(B-A)/N;
h1:= 0;
x:= a;
repeat
 y:= F(x);
 h1:=h1 + y*step;
 x:=x + step;
until not(x <= B - step);
if not(abs(h1 - h) <= E) then
 begin
   N:=N*2;
   h:=h1;
   goto NextDo;
 end
else
 begin
  Writeln('Результат вычислений h1', h1:0:2);
  Writeln('Результат вычислений N', N:0:2);
  Writeln('Результат вычислений E', E:0:2);
 end;
Readln;
end.