программирование на паскале

1. Найти сумму числового ряда с заданной точность  (вводится пользователем): S = 1+2/2!+3/4!+4/6!+5/8!+ …

2. Найти сумму числового ряда с заданной точность  (вводится пользователем): S = 1+1/3!+1/6!+1/9!+… 

1) вычисление суммы ряда с заданной точностью while; 2) вычисление суммы ряда с заданной точностью repeat..until