наверно подразумевается "противополных знаков". вначале немного подумайте над алгоритмом.
заведите место хранения вводимых чисел (в примитивном случае - массив из 4х эл-тов, в общем - список arraylist,
подсчитывайте количество введённых чисел (или сразу считайте скольк=4).
помещайте модуль ( math.abs() ) в хранилище, если такого там ещё нет (в map не надо проверять, это множество). на выходе сравните количество введённых и заполненную длину хранилища: разница даст количество "противоположных чисел".
ну, а вы же учитесь, а не я.
Var a, d, n, i, otv: integer;
begin
read(a,d,n); - ввод всех значений
otv:=a; - в переменную где будет храниться
for i:=1 to n do ответ записываем начальный взнос
begin
a:=a+d; - увеличиваем в цикле взнос
otv:= otv + (a); - добовляем взнос к нашему ответу
end;
writeln(otv); - выводим ответ
end.
