Последовательность 3+2+1+6+5+4+9+8+7 - Pascal ABC

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

Имеется последовательности 3+2+1+6+5+4+9+8+7. Вычислить сумму до n (вводится пользователем)

Решение задачи: «Последовательность 3+2+1+6+5+4+9+8+7»

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

uses crt;
var n,i,j,s:integer;
begin
for n:=1 to 24 do
 begin
  s:=0;
  for i:=1 to n do
   begin
    case (i-1) mod 3 of
    0:j:=i+2;
    1:j:=i;
    2:j:=i-2;
    end;
    s:=s+j;
   end;
 writeln(i:2,' s=',s)
end;
end.

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

В этом коде используется два вложенных цикла. Первый цикл проходит 24 раза. Второй цикл проходит от 1 до n (поскольку значение n меняется в первом цикле от 1 до 24). Внутри второго цикла есть операция взятия остатка от деления (mod), которая используется в конструкции case. Случай 0 соответствует шагу цикла i=1,2,3,... Случай 1 соответствует шагу цикла i=4,5,6,... Случай 2 соответствует шагу цикла i=3,2,1,... Внутри каждого case меняется значение j, которое затем используется в операции сложения s:=s+j. После каждого шага второго цикла выводится значение s.