Составе блок-схему алгоритма и программу вычисления в массиве A

program xxx; var i, n, s, k: integer; a: array [1… 20] of integer; begin write ('введите n='); readln (n) writeln ('введите элементы массива А: '); for i: =1 to n do readln (a[i]); s: =0; k: =0; for i: =1 to n do if a[i] mod 8=0 then begin s: =s+a[i]; k: =1 end; if k=0 then write ('элементов кратных 8 — нет') else write ('сумма элементов кратных 8=', s); readlnend.