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.