В прикрепленном изображении указаны формулы, необходимые для решения этой задачи. Код программы приведен ниже.
Удачи!
var a1, a5, an, d, sum, n : integer;
begin
readln(a1, a5, n);{получаем на вход первый и пятый члены прогрессии и число n}
d := (a5 - a1) div 4;{Находим разность прогрессии}
an := a1 + (n - 1) * d;{Находим член прогрессии с номером n}
sum := ((a1 + an) * n) div 2; {Находим сумму первых n членов прогрессии}
writeln('n-ый член прогрессии: ', an);
writeln('Сумма первых n членов прогрессии: ', sum);
end.
