Z1

var d1, d2, d3, d4, d5, d6, i: longint;
begin
    i := 0;  // Это будет счётчик счастливых чисел.
    for d1:=1 to 9 do begin  // Вместо того, что бы перебирать все числа от 100000 до 999999,
    // а потом разбивать их на цифры, лучше сразу перебирать цифры. Первое начинается не с 0 по очевидным причинам.
        for d2:=0 to 9 do begin
            for d3:=0 to 9 do begin
                for d4:=0 to 9 do begin
                    for d5:=0 to 9 do begin
                        for d6:=0 to 9 do begin
                            if (d1*d2*d3 = d4*d5*d6) then  // Если число счастливое, добавляем 1 к счётчику.
                                i := i + 1;
                        end;
                    end;
                end;
            end;
        end;
    end;
    writeln(i);  // Вывод. Выведет 54054, что и является ответом на задание.
end.