secondo me potresti fare

for i:=1111 to 9999 do
begin
if primacifra*secondacifra*terzacifra*quartacifra=12 then
Writeln(i);
end;

[OT] Ma tu sei quello di hackerminds? Perchè questo che hai chiesto assomiglia al liv 3 di hackertrainer :rollo: [/OT]