Could anybody give me at least an idea how to solve the problem? I
have my own idea, but it seems too difficult, may be there is easier
way?

uses
  SysUtils;
var
n:integer;
begin
  reset (input,'input.txt');
  rewrite (output,'output.txt');
  read (n);
  if n=2 then
  begin
    write (10);
    halt;
  end;
  if n=3 then
  begin
    write (100);
    halt;
  end;
   if n=4 then
  begin
    write (670);
    halt;
  end;

  if n=5 then
  begin
  write (6700);
  halt;
  end;

  if n=6 then
  begin
    write (55252);
    halt;
  end;
  if n=7 then
   begin
     write (552520);
     halt;
   end;
  if n=8 then
  begin
    write (4816030);
    halt;
  end;
  if n=9 then
  begin
    write (48160300);
    halt;
  end;
  if n=10 then
  begin
   write ('432457640');
   halt;
  end;
  {rewrite (output,'output.txt');
  res:=0;
  for i:=0 to 9 do
  for f:=0 to 9 do
  for g:=0 to 9 do
  for k:=0 to 9 do
  for j:=0 to 9 do
  for d:=0 to 9 do
  for h:=0 to 9 do
  for a:=0 to 9 do
  for s:=0 to 9 do
  for q:=0 to 9 do

  if i+f+g+k+j=d+h+a+s+q then }

end.

why such mess?