Написать формулы для написания линейных программ Turbo Paskal : Найти сумму 1-ых n-членов арифметической прогрессии, если 2-ой элемент=5 а 4-ый=6

Предыдущий
вопрос Следующий
вопрос

program SumOfFirstN;
var
n, a1, a2, an, sum: integer;
begin
writeln('Enter the value of n:');
readln(n);

writeln('Enter the value of the second element:');
readln(a2);

writeln('Enter the value of the fourth element:');
readln(a1);
a1 := a2 + 2 * (a2 - a1);

sum := n * (a1 + a2) div 2;

writeln('The sum of the first ', n, ' terms of the arithmetic progression is ', sum);
end.