Известно первый и пятый члены арифметической прогрессии. найти величину члена прогрессии с номером n и сумму n членов. написать это в программе паскаль.

В прикрепленном изображении указаны формулы, необходимые для решения этой задачи. Код программы приведен ниже.
Удачи!

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.