Программирование алгоритмов циклической структуры ( цикл с предусловием и постусловием )

program Project2;
 
//Коротких Татьяна
 
{$APPTYPE CONSOLE}
 
uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  Math;
 
var
        x: real;
    Exact: real; //точное значение функции
    n, i,j: integer;
 
  CurElem, tmp: real;
  SumAbsE: real; //сумма для точности e
    Count:integer;
 
Begin
 
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  writeln('Введите значение x');
  readln(x);
 
  Exact := 0.3;
  SumAbsE := 0;
  Count:=0;    //счетчик
 
  while abs(Exact - SumAbsE)> 0.000001 do
  begin
   Count := Count + 1;
   i := Count;
    for j := 1 to i+1 do
     begin
       tmp := tmp*(-1)
     end;
   CurElem := tmp*(exp((2*i+1)/(4*i*i-1))*ln(x));
   SumAbsE := SumAbsE + CurElem;
  end;
 
 
 writeln(#10'Точное значение функции = ',Exact:10:8);
 writeln(#10'========================================================');
 writeln(#10'Сумма слагаемых для точности 0.000001 = ',SumAbsE:10:8);
 writeln(#10'Количество слагаемых: ', Count);
 writeln(#10'=========================================================');
 
 readln
 
End.