{* Задача 22 *}

Unit ZADACH22;
Interface
Implementation
Begin
 writeln('В кинотеатре 30 рядов кресел. В первом ряду 20 кресел, в каждом следующем на 2 кресла больше, чем в предыдущем. Сколько мест в зрительном зале?');
End.

Program zadach22;

Uses zadach22.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  c : integer;
  k : integer;
  i : integer;
Begin
  k := 20;
  c := 2;
  For i := 1 To 29 Do {* Увеличиваем i от 1 до 29 с шагом 1 *}
  Begin
    k := k + c;
    c := c + 2;
  End;
  writeln('В зрительном зале 'k' кресел');
End.