Определить f(y) с точностью ε - Turbo Pascal

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

Даны │y│≤ 1; ε. Определить f(y) с точностью ε

Решение задачи: «Определить f(y) с точностью ε»

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

var y,e,f,t:real;
begin
repeat
write('Введите |y|<1 y=');
readln(y);
until abs(y)<1;
repeat
write('e>0 e=');
readln(e);
until e>0;
t:=1;
f:=t;
while abs(t)>e do
 begin
  t:=-t*y*y*y*y/2;
  f:=f+t;
 end;
write('f=',f:0:4)
end.

Объяснение кода листинга программы

Создается переменная y типа real и присваивается значение readln(y).
Создается переменная e типа real и присваивается значение readln(e).
Создается переменная f типа real и присваивается значение f := t.
Создается переменная t типа real и присваивается значение t := 1.
Выполняется цикл while abs(t) > e do
- В цикле переменная t вычисляется как -t*y*y*y*y/2.
- Переменная f увеличивается на t.
Выводится значение переменной f с точностью до 4 знаков после запятой.
Программа завершается.