HELP!: *написать программу, которая в последовательности целых чисел определяет…

Program n1; Uses CRT; Const n=10; Var A: array[1… n] of integer; i,k,s,m: integer; begin; randomize; ClrScr; Writeln ('Ishodny massiv'); a[n]: =0; m: =random (10); For i: =n-1 downto 1 do begin a[i]: =a[i+1]+m; write (a[i]: 3); If a[i] mod 4=0 then begin k: =k+1; s: =s+a[i]; end; end; writeln; Writeln ('Srednee arifmeticheskoe=',s/k); readlnend.