Узнать количество стульев - Turbo Pascal

Формулировка задачи:

В одном амфитеатре есть ряды со стульями. В первом ряду n стульев, каждый ряд увеличивается на 2 стула. Узнать количество стульев в последнем ряду. Узнать количество стульев в амфитеатре. Вот что я уже собрал.

                    Листинг программы
                
 
                        
                          
                    
var i,sum:integer;
c,r,s,n:integer;
begin
writeln('Количества рядов');
readln(r);
writeln('Количества стульев в первом ряду');
readln(c);
sum:=c;
n:=1;
for i := 2 to r do
begin
sum := sum + 2;
end;
writeln('количество стульев в последнем ряду',sum);
 
end.

Вопрос в том, как узнать обшее количество стульев. Заранее спасибо.

Решение задачи: «Узнать количество стульев»

Листинг программы

var i,sum:integer;
    c,r,s,n:integer;
begin
writeln('Количества рядов');
readln(r);
writeln('Количества стульев в первом ряду');
readln(c);
n:=c;
sum:=c;
for i:=2 to r do
 begin
  n:=n+2;
  sum:=sum+n;
 end;
writeln('количество стульев в последнем ряду=',n);
writeln('всего стульев=',sum)
end.

Объяснение кода листинга программы

Создаются переменные i, sum, c, r, s и n, которые будут использоваться в коде.
Выводится сообщение Количества рядов и считывается значение переменной r.
Выводится сообщение Количества стульев в первом ряду и считывается значение переменной c.
Значение переменной n устанавливается равным значению переменной c.
Значение переменной sum устанавливается равным сумме значения переменной c и n.
Запускается цикл for, который будет выполняться от 2 до r (включительно).
Внутри цикла значение переменной n увеличивается на 2, а значение переменной sum увеличивается на n.
После завершения цикла выводится сообщение количество стульев в последнем ряду=, значение переменной n, и выводится сообщение всего стульев=, значение переменной sum.