Паскаль: среди всех делителей числа н найти те сумма цифр которых кратна трем

Var n,x:integer;
begin
 read(n);
 if n mod 3 = 0 then
  begin
  n := n div 3;
  for x := 1 to n do
   if n mod x = 0 then
    write(3*x,' ')
  end
 else
  write('Not found')
end.