function sumd(n: integer): integer;
var sm: integer;
begin
  sm:=0;
  repeat
   sm:=sm+(n mod 10);
   n:=n div 10;
  until n=0;
  sumd:=sm;
end;

var i,k,n,m: integer;
    a: array of integer;
begin
// задание 1  
  writeln('числа, сумма цифр которых кратна 8');
  i:=107;
  repeat
    if ((sumd(i) mod 8) = 0) then write(i,' ');
    i:=i+2;
  until i>999;
  writeln;
// задание 2  
  write('n = ');
  readln(n);
  setlength(a,n+1);
  write(n,' чисел через пробел:  ');
  m:=1;
  for i:=1 to n do
  begin
    read(k);
    if sumd(k)>10 then 
    begin
      a[m]:=k;
      m:=m+1;
    end;
  end;
  write('числа, сумма цифр которых больше 10:  ');
  for i:=1 to m-1 do write(a[i],' ');
end.