Вычислить значение суммы при заданном значении аргумента - Turbo Pascal

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

дан x, посчитать y

Решение задачи: «Вычислить значение суммы при заданном значении аргумента»

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

var n:integer;
    x,t,z,f,y:real;
begin
write('x=');
readln(x);
if x=0 then
 begin
  write('y не определено, деление на 0');
  readln;
  exit;
 end;
z:=1/x;
t:=z;
y:=0;
for n:=1 to 10 do
 begin
  t:=t*z*z*n;
  y:=y+t;
 end;
write('y=',y:0:5);
readln
end.

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

Переменная n инициализируется значением 10.
Переменные x, t, z, f, y объявляются и инициализируются значениями 0.
Выводится сообщение x=, после чего считывается значение переменной x.
Проверяется условие x=0. Если оно истинно, выводится сообщение y не определено, деление на 0 и считывается значение переменной x.
Переменная z инициализируется значением 1/x.
Переменная t инициализируется значением z.
Переменная y инициализируется значением 0.
Запускается цикл for, который выполняется 10 раз.
В каждой итерации цикла переменная t инициализируется значением tzz*n, где n - значение переменной n.
Значение переменной t добавляется к значению переменной y.
После завершения цикла выводится сообщение y=, за которым считывается значение переменной y.
Программа завершается.