Определить количество счастливых билетов

var i,x:integer;
begin
for i:=100000 to 999999 do
inc(x);
writeln ('Количество счастливых билетов-',' ',x);
readln;
end.

var
  a, b, c, d, e, f, k: integer;
 
begin
  for a := 1 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
        for d := 0 to 9 do
          for e := 0 to 9 do
            for f := 0 to 9 do
              if a + b + c = d + e + f then
                k := k + 1;
  Writeln(k);
  Readln
end.

Program abcd;
var i,x,r1,r2,k,j:integer; s,d1,d2:string;
begin
for i:=100000 to 999999 do begin
d1:=''; d2:=''; r1:=0; r2:=0;
x:=i;
s:=inttostr(x);
for j:=1 to 3 do begin
d1:=d1+s[j];
 
r1:=r1+strtoint(s[j]);
end;
for j:=4 to 6 do begin
d2:=d2+s[j];
r2:=r2+strtoint(s[j]);
end;
if r1=r2 then inc(k);
end;
writeln ('Кол-во счастливых билетов-',' ',k);
readln;
end.

Var i,k : Integer;
Begin
  k:=0;
  For i:=100000 to 999999 do
    If (i div 100000)+((i div 10000) mod 10)+((i div 1000) mod 10)=
       ((i div 100) mod 10)+((i div 10) mod 10)+(i mod 10) then Inc(k);
  Writeln(k);
End.