Ввести x с клавиатуры и определить, сколько чисел в промежутке от 1 до 100 делятся без остатка на x, x-1 или x - Free Pascal

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

не могу понять как описать в паскале делятся без остатка на x,х-1,х+1. Одновременно? В цикле от 1 до 100 if (i mod x = 0) and ((i-1) mod x = 0) and ((i+1) mod x = 0) tnen n := n + 1; задание 51. Ввести x с клавиатуры и определить, сколько чисел в промежутке от 1 до 100 делятся без остатка на x, x-1 или x+1.

Решение задачи: «Ввести x с клавиатуры и определить, сколько чисел в промежутке от 1 до 100 делятся без остатка на x, x-1 или x»

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

var
    x: LongInt;
    c, cp1, cm1, i: 0..100;
begin
    c := 0;
    cp1 := 0;
    cm1 := 0;
    Write('Введите x = '); ReadLn(x);
    for i := 1 to 100 do
    begin
        if (i mod x = 0)
        then
            Inc(c);
        if (i mod (x + 1) = 0)
        then
            Inc(cp1);
        if (i mod (x - 1) = 0)
        then
            Inc(cm1);
    end;
    WriteLn('Для x: ', c);
    WriteLn('Для x+1: ', cp1);
    WriteLn('Для x-1: ', cm1);
end.

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

Введен тип данных LongInt для переменной x, чтобы обеспечить достаточное количество значений для ввода с клавиатуры.
Введены переменные c, cp1, cm1 и i типа 0..100, чтобы хранить количество чисел, которые делятся без остатка на x, x+1 и x-1 соответственно.
Переменная c инициализирована значением 0.
Переменные cp1 и cm1 инициализированы значением 0.
Пользователю предлагается ввести значение x.
Запускается цикл от 1 до 100.
Внутри цикла проверяется, делится ли текущее значение i без остатка на x. Если да, то увеличивается значение переменной c.
Проверяется, делится ли текущее значение i без остатка на x+1. Если да, то увеличивается значение переменной cp1.
Проверяется, делится ли текущее значение i без остатка на x-1. Если да, то увеличивается значение переменной cm1.
После завершения цикла выводится количество чисел, которые делятся без остатка на x.
Выводится количество чисел, которые делятся без остатка на x+1.
Выводится количество чисел, которые делятся без остатка на x-1.
Код не содержит обработку ошибок или исключений.
Код не содержит комментариев или пояснений.