Обчислити суму 10-ти елементів арифметичної прогресії 2, 5, 8, 11, 14..​

Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! procedure zamena(var stroka: string); begin   var cin: ='abcdefghijklmnopqrstuvwxyz'.tochararray;   var n: =cin.length;   var cout: =cin[1: n]+cin[: 1];   for var i: =1 to stroka.length do begin       var p: =cin.indexof(stroka[i]);       if p> =0 then stroka[i]: =cout[p]       end end; begin   var aa: ='a bc 83xz';   aa.println;   zamena(aa);   aa.println end. пример a bc 83xz b cd 83ya

Program podschet; var  i, j ,ans: integer;   a: array [1..100,1..100] of integer; begin  writeln('введите размерность матрицы');   readln(n);   writeln('введите матрицу ', n, 'х', n);   for i : = 1 to n do    for j : = 1 to n do      read(a[i, j]);   for i : = 1 to n do    for j : = 1 to n do      if (j = i + 1) then        ans : = ans + a[i, j];   writeln('cумма элементов над главной диагональю = 'ans); end.