Сосчитать количество счастливых билетов.

var n,n1,n2,i,j,count:Longint;
    s:string;
begin
count:=0;
for j:=0 to 999999 do
begin
 n:=j;
 n1:=0;n2:=0;
 for i:=1 to 6 do
  begin
   if i<=3 then n1:=n1+n mod 10
       else n2:=n2+ n mod 10;
   n:=n div 10;
  end;
  if (n1=n2) then begin
                      Str(j,s);
                      for i:=1 to 6-length(s) do
                       s:='0'+s;
                      writeln('Happiness ',s);
                      count:=count+1;
                     end;
end;
writeln('Всего ', count);
end.

program happy;
var
 count, i : longint;
 er : integer;
 s : string[6];
 n,k : 0..6;
 l : 0..9;
 sum1, sum2 : byte;
begin
assign (output, 'output.txt');
rewrite (output);
writeln ('Happyness!');
writeln;
count:=0;
for i:=1 to 999999 do
begin
  sum1:=0;
  sum2:=0;
  str(i,s);
  n:=length(s);
  for k:=1 to (6-n) do
   s:='0'+s;
  for k:=1 to 6 do
   if k<=3 then
   begin
     val (s[k],l,er);
     sum1:=sum1+l
   end
   else
   begin
     val (s[k],l,er);
     sum2:=sum2+l
   end;
 
  if sum1=sum2 then
  begin
    writeln ('Happyness: ',s);
    count:=count+1
  end
end;
writeln;
writeln ('Count= ',count);
readln;
close (output)
end.