Нужно написать прогу..., ...счастливые билеты Опции

[TOPEHTO]

Найти число "счастливых" билетов в катушке, состоящей из 1000000 билетов с шестизначными номерами. "Счастливым" считается билет, у которого суммы трех первых и трех последних цифр совпадают.

Помогите плиз, мож у кого есть....или хотяб ы алгоритм... ...
И еще нужна прога которая находит совершенные числа до 100000...Если у кого есть помогите плиз... ...

[TOPEHTO]

Погода говорю хорошая... ...

function step(x,n:integer): longint;
var i,h:longint;
begin
h:=1;
for i:=1 to n do h:=h*x;
step:=h;
end;

Чт делает это проца? никак не могу понял, подска плиз...и желательно если можешь на словах как работает программа(какой у неё алгоритм) со счасливыми билетами... ...