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

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);   readln end.