Найти наименьшее натуральное число М, кратное 6 - Turbo Pascal

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

Помогите решить эту задачу, буду очень признателен. Хотя бы математически, программу на паскале я сам постараюсь составить. Найти наименьшее натуральное число М, кратное 6, для которого , где =0,01, x – заданное число и вычислить сумму P.S Надеюсь я не ошибся разделом форума и создал тему там где нужно. Если нет, заранее извиняюсь.

Решение задачи: «Найти наименьшее натуральное число М, кратное 6»

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

const
    EPS = 0.01;
var
    i, m: LongWord;
    x, s: Real;
begin
    Write('x='); ReadLn(x);
    x := Abs(x); m := 0;
    repeat
        Inc(m, 6);
    until (Sqrt(x) < m * EPS);
    WriteLn('M=', m);
    s := 0;
    for i := 1 to m do
        s := s + m / (i + x);
    Write('S=', s:0:2);
end.

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

В начале кода объявляются две переменные: EPS и m, которые будут использоваться для поиска наименьшего натурального числа, кратного 6.
Затем объявляются три переменные: i, x и s. Переменная i будет использоваться для цикла, переменная x будет использоваться для чтения входного значения, а переменная s будет использоваться для хранения суммы.
В цикле повторяется следующая операция:
- Инкрементируется значение переменной m на 6.
- Пока квадратный корень из значения переменной x меньше или равен m умноженному на EPS, цикл повторяется.
После завершения цикла значение переменной m записывается в выходной результат.
Затем вычисляется сумма s.
Наконец, выводится значение переменной s.