Random(1) в Паскале возвращает 0, поэтому приведенная программа эквивалентна коду, в котором S равно сумме значений вида 2×i, где i меняется от -78 до Х. Эти значения будут составлять ряд -156, -154, -152, ..., т.е. образуют арифметическую прогрессию с разностью d=2.
Сумма такой прогрессии находится по формуле S = (2×(-156)+2(n-1))×n/2 = (-156+n-1)×n = (n-157)×n = 978, где n - количество членов прогрессии.
Получаем квадратное уравнение n²-157n-978=0. Решая его, находим n=163.
Чтобы цикл, начиная с -78 с шагом 1 до Х повторился 163 раза, Х = 163+(-78)-1 = 84.