Запрограммируйте итерационный цикл вычисления функции ех (см. задание 9 из § 21) с точностью е. Сделайте два варианта программы:

1.    const
2.    e=0.000001;//точность
3.    x=2;
4.    var
5.    a,y:real;
6.    i:integer;
7.    begin
8.    writeln('exp(x):=':10,exp(x));//стандартное значение
9.    y:=1;//значение функции первый элемент
10.    a:=1;//значение приращения
11.    i:=1;//итерационный шаг
12.    while a>e do//пока приращение больше точности
13.    begin
14.    a:=a*x/i;//считаем и степень и факториал
15.    y:=y+a;//суммируем
16.    inc(i);//следующий шаг
17.    end;
18.    writeln('while :=':10,y);
19.    y:=1;//значение функции первый элемент
20.    a:=1;//значение приращения
21.    i:=1;//итерационный шаг
22.    repeat
23.    a:=a*x/i;//считаем и степень и факториал
24.    y:=y+a;//суммируем
25.    inc(i);//следующий шаг
26.    until a<e;//пока приращение больше точности
27.    writeln('repeat :=':10,y);
28.    end.