Написать программу определения количества 2*N -значных билетов

var
  N: integer; 
  i, Perenos: integer; 
  A: array[1..200] of integer; 
  Sum1, Sum2: Longint; 
  Count: Longint; 
  Flag_Continue: boolean;
 
begin
  WriteLn('Введите число знаков N :');
  Readln(N);
  for i := 1 to 2 * N do 
    A[i] := 0;
  Count := 0; 
  Flag_Continue := true; 
  while Flag_Continue do 
  begin
    Sum1 := 0; 
    for i := 1 to N do 
      Sum1 := Sum1 + A[i];
    Sum2 := 0; 
    for i := 1 to N do 
      Sum2 := Sum2 + A[i + N];
    if Sum1 = Sum2 then 
    begin
    //  writeln(sum1, sum2);
      Count := Count + 1;
    end;
    Perenos := 1; 
    for i := 2 * N downto 1 do 
    begin
      A[i] := A[i] + Perenos; 
      Perenos := A[i] div 10; 
      if Perenos <> 0 then 
        A[i] := A[i] mod 10 
      else 
        break;
    end; 
    Flag_Continue := false; 
    for i := 1 to 2 * N do 
      if A[i] <> 9 then 
        Flag_Continue := true;
  end; 
  WriteLn('Всего "счастливых" билетиков: ', Count:1); 
end.

const
  m = 6;
 
var
  i, k, n, t: longint;
  d: array[0..9*m] of longint;
 
begin
  repeat
    write('N in [1..', m, '];  N = ');
    readln(n)
  until n in [1..m];
  k := 10;
  for i := 2 to n do k := k * 10;
  for i := k - 1 downto 0 do
    begin
      k := 0;
      t := i;
      repeat
        k := k + t mod 10;
        t := t div 10
      until t = 0;
      inc(d[k])
    end;
  k := 0;
  for i := 0 to 9 * n do k := k + sqr(d[i]);
  write('Lucky tikets: ', k);
  readln
end.