Заполнить двумерный массив следующим образом: 12 24 120 2 14 110 1 13 109

Var a: array[1..12,1..10] of integer; i,j: integer; begin for i: =1 to 10 do a[1,i]: =i*12; for i: =2 to 12 do   for j: =1 to 10 do   a[i,j]: =a[i-1,j]-1; for i: =1 to 12 do begin   for j: =1 to 10 do     write(a[i,j]: 4);   writeln; end; end.

Const       e = 0.000001; var       i, f, f1, thn, t: integer;       s, s1: real; begin       i : = 0;       f1 : = 1;       f : = 2;       thn : = -1;       s : = 1;       s1 : = 0;       repeat               i : = i + 1;               s1 : = s;               thn : = thn * -3;               s : = s + 2 * i / f / thn;               writeln(2 * i, ' ', f, ' ', thn, ' ', s);               t : = f1;               f1 : = f;               f : = f + t       until abs(abs(s1) - abs(s)) < e;       writeln(s); end.

Const       n = 30; var       i: integer;       a, d: array[1..n]of integer; begin       for i : = 1 to n do       begin               d[i] : = random(100);               if i < = 10 then                       a[i] : = d[i] + i               else                       a[i] : = d[i] - i;               write(d[i]: 4, ' ');       end;             writeln();       for i : = 1 to n do               write(a[i]: 4, ' '); end.