Задача: Царевна-лягушка съедает ежедневно на 20 комаров больше, чем - Pascal ABC

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

Составить программу для решения следующей задачи: Царевна-лягушка съедает ежедневно на 20 комаров больше, чем в предыдущий день, и еще два комара. Выведите на экран количество съеденных комаров через 20 дней, если в первый день съедено 12 комаров.

Решение задачи: «Задача: Царевна-лягушка съедает ежедневно на 20 комаров больше, чем»

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

var k, d, i, kall, x : integer;
// k - кол-во съеденных комаров в 1-ый день
// d - кол-во дней
// i - счётчик цикла
// kall - общее кол-во съеденных комаров
// x - кол-во комаров, которое будет беспощадно сожрано в следующий день
begin
  Write('Кол-во дней: ');
  Readln(d);
  Write('Кол-во съеденных комаров в 1-ый день: ');
  Readln(k);
  kall:=0;
  x:=20;
  for i:=2 to d do   // считает съеденных комаров,
  begin              // начиная с 2-ого дня.
    kall:=kall+x;    // увеличиваем общее кол-во съеденных комаров
    x:=x+20;         // в следующий день съест на 20 больше
  end;
  kall:=kall+k+2;  // добавляем к общей сумме комаров тех, которые были съедены в 1-ый день и ещё 2
  Writeln('Всего съедено заживо: ',kall);
end.

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

Объявлены следующие переменные: k - количество съеденных комаров в 1-ый день d - количество дней i - счётчик цикла kall - общее количество съеденных комаров x - количество комаров, которое будет беспощадно сожрано в следующий день
Введенное количество дней сохраняется в переменной d
Введенное количество съеденных комаров в 1-ый день сохраняется в переменной k
kall инициализируется значением 0, так как общее количество съеденных комаров пока равно 0
x инициализируется значением 20, так как в следующий день царевна-лягушка съест на 20 комаров больше
Цикл for запускается, начиная со второго дня (i=2) и выполняется до тех пор, пока i меньше или равно d (так как d вводится пользователем и может быть любым числом, включая 0)
В каждой итерации цикла к общему количеству съеденных комаров (kall) добавляется значение x, увеличенное на 20 (так как в следующий день царевна-лягушка съест на 20 комаров больше)
Значение x увеличивается на 20 после каждой итерации цикла
После завершения цикла общее количество съеденных комаров (kall) увеличивается на количество комаров, которые были съедены в 1-ый день (k), и на 2 (так как в первый день царевна-лягушка съест 2 комара больше)
Выводится общее количество съеденных комаров (kall)
Код завершается