Операторы цикла. Вычислить значение функции - Turbo Pascal

Формулировка задачи:

Приветствую. Помогите пожалуйста вычислить значение данной функции и количество слагаемых Желательно программу представить в двух вариантах : в первом варианте использовать оператор цикла WHILE, во во втором-REPEAT.

Решение задачи: «Операторы цикла. Вычислить значение функции»

textual
                            Листинг программы 
                        

                            const
  e=0.00001;
var
  x,y,z:real;
  i:integer;
begin
  write('Enter X:');
  readln(x);
  {первый цикл}
  i:=1;
  z:=1;
  y:=1;
  while abs(z)>e do
    begin
      z:=z*x/i;
      inc(i);
      y:=y+z;
    end;
  writeln(' while result:',y,'count:':8,i);
  {второй цикл}
  z:=1;
  y:=1;
  i:=1;
  repeat
    z:=z*x/i;
    inc(i);
    y:=y+z;
  until abs(z)<e;
  writeln('repeat result:',y,'count:':8,i);
  readln;
end.
                        