{* Задача 14 *}

Unit NECHET14;
Interface
Implementation
Begin
 writeln('Сумма N нечётных чисел натурального ряда, начиная с К>0. N>0 и К>0. ');
End.

Program nechet;

Uses nechet14.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  k : integer;
  n : integer;
  i : integer;
  b : integer;
Begin
  writeln('vvedite n');
  readln(n);
  writeln('vvedite k');
  readln(k);
  b := k;
  For i := 1 To n - 1 Do {* Цикл для i => [1 .. n] *}
    b := b + (k + 2 * i);
  writeln(b);
  readln; {* Приостановка программы. Ожидание Enter *}
End.