Найти n, для которого выполняется условие - Pascal ABC

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

Даны дейсвительные числа х, ε (х ≠ 0, ε > 0). Последовательность образована по закону Найти n, для которого выполняется условие Ограничить рассмотрение первых 10³ членов.

Решение задачи: «Найти n, для которого выполняется условие»

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

var n: integer;
    a, t, x, e: double;
begin
  repeat
    write(' x <> 0;    x = ');
    readln(x)
  until x <> 0;
  repeat
    write('eps > 0;  eps = ');
    readln(e)
  until e > 0;
  a := x;
  n := 1;
  repeat
    inc(n);
    t := a;
    a := cos(x) / (4 + sqr(cos(t)))
  until (abs(a * a - t * t) < e) or (n >= 1000);
  if abs(a * a - t * t) < e
    then write('n = ', n)
    else write('Для первых 1000 членов последовательности условие не было выполнено.');
  readln
end.

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

Создается переменная n типа integer.
Создаются переменные a, t, x, e типа double.
Запускается цикл repeat, внутри которого выполняется следующая последовательность действий:
- Выводится сообщение x <> 0; x = и считывается значение переменной x.
- Проверяется условие x <> 0. Цикл повторяется, пока это условие не выполнится.
- Выводится сообщение eps > 0; eps = и считывается значение переменной e.
- Проверяется условие e > 0. Цикл повторяется, пока это условие не выполнится.
- Переменная a присваивается значение переменной x.
- Переменная n присваивается значение 1.
- Запускается цикл repeat, внутри которого выполняется следующая последовательность действий:
  - Инкрементируется значение переменной n.
  - Переменная t присваивается значение переменной a.
  - Переменная a присваивается результат вычисления cos(x) / (4 + sqr(cos(t))).
  - Проверяется условие (abs(aa - tt) < e) или (n >= 1000).
  - Если условие выполняется, то выводится сообщение n = и значение переменной n.
  - Если условие не выполняется, то выводится сообщение Для первых 1000 членов последовательности условие не было выполнено..
- Считывается значение переменной x.
Заканчивается цикл repeat.
Выводится сообщение readln.
Заканчивается программа.