Вложенные циклы

 uses crt;
var
a,b,i,s,s1,s2:longint;
begin
clrscr;
for i:=100000 to 999999 do begin
a:=i mod 1000;
b:=i div 1000;
s1:=0;
while a>0 do begin
s1:=s1+ a mod 10;
a:=a div 10;
end;
s2:=0;
while b>0 do begin
s2:=s2+ b mod 10;
b:=b div 10;
end;
if (s1=13) and (s2=13) then s:=s+i;
end;
writeln (s);
readln;
end.

begin
write(0);
readln;
end.

uses crt;
function sum(a:longint):integer;
var s:integer;
begin
s:=0;
while a>0 do begin
s:=s+a mod 10;
a:=a div 10;
end;
sum:=s;
end;
function hap(a:longint):boolean;
var x,y:integer;
begin
hap:=false;
x:=a div 1000;
y:=a mod 1000;
if (sum(x)=13) and (sum(y)=13) then hap:=true;
end;
var i,k:longint;
begin
clrscr;
k:=0;
for i:=100000 to 999999 do if hap(i) then inc(k);
write(k);
readln
end.

program  komb;
uses crt;
 
var
i,j,k:integer;
a:integer;
 
begin
clrscr;
a:=0;
 
for i:=0 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i+j+k=13 then begin
 writeln (i,' ',j,' ',k); {все комбинации дающие 13}
 inc(a);
end;
writeln(a); {кол-во комбинаций из трех цифр в сумме дающих 13}
 
writeln('кол-во билетов: ',a*a); {кол-во билетов}
readkey;
end.