ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ.Составить программу вычисления суммы бесконечного ряда с точность EPS.

…
N := 0;
Znak := -1;
Sum := 0;
repeat
Inc(N);
Znak := -Znak;
Slog := Znak / N / N;
Sum := Sum + Slog;
until Abs(Slog) < Eps;
…