09 (Factorion)

var i,d,e,s,z,q,w,r,t,y,u: integer;
begin
for i:=100 to 999 do begin
t:=1; y:=1; u:=1;
s:=i div 100;
z:=i mod 100;
d:=z div 10;
e:=i mod 10;
for q:=1 to s do
t:=t*q;
for w:=1 to d do
y:=y*w;
for r:=1 to e do
u:=u*r;
if t+y+u=i then write(i, ' ');
end;
writeln;
end.