Возвести сумму всех чисел числа в степень, равную их количеству.

program stepen;
var
ch, sc, i, s, k, t, v, h, m:integer;
function arm(v: integer): boolean;
var
 kol:integer;
   begin
     sc:=ch;
   arm:=false;
   sc:=0; i:=0;
  while ch<>0 do
       begin
         i := i + 1; {количество цифр}
         sc:=sc+ ch mod 10; {сумма цифр}
         ch := ch div 10;
       end;
  end;
begin
 
  Write ('Введите число');
  Read (ch);
  t:=ch;
 
  for v:=1 to t do
  begin
  if arm (v) then ;
  for k:=1 to i do
    m:=m*sc; {возводим число в степень i}
   if m=v then
   writeln(m);
     sc:=sc+1;
  end;
end.

program stepen;
uses crt;
function arm(v:integer): boolean;
var ch, sc, i, k, m:integer;
begin
ch:=v;
sc:=0; i:=0;
while ch<>0 do
 begin
  i := i + 1; {количество цифр}
  sc:=sc+ ch mod 10; {сумма цифр}
  ch := ch div 10;
 end;
m:=1;
for k:=1 to i do
m:=m*sc; {возводим число в степень i}
arm:=m=v;
end;
var ch,i:integer;
begin
Write ('Введите число ch=');
Read (ch);
if arm (ch) then
for i:=1 to ch do
write(i,' ')
else write('Число не соответствует условию');
end.

program stepen;
function arm(v:integer): boolean;
var ch, sc, i, k, m:integer;
begin
ch:=v;
sc:=0; i:=0;
while ch<>0 do
 begin
  i := i + 1; {êîëè÷åñòâî öèôð}
  sc:=sc+ ch mod 10; {ñóììà öèôð}
  ch := ch div 10;
 end;
m:=1;
for k:=1 to i do
m:=m*sc; {âîçâîäèì ÷èñëî â ñòåïåíü i}
arm:=m=v;
end;
 
var ch,i,d,q:integer;
begin
Writeln ('Ââåäèòå ÷èñëî');
Read (ch);
q:=ch; ch:=0;
for d:=1 to q do
begin
ch:=ch+1;
if arm (ch) then
write(i,' ')
end;
end.

program stepen;
uses crt;
function arm(v:integer): boolean;
var ch, sc, i, k, m:integer;
begin
ch:=v;
sc:=0; i:=0;
while ch<>0 do
 begin
  i := i + 1; {количество цифр}
  sc:=sc+ ch mod 10; {сумма цифр}
  ch := ch div 10;
 end;
m:=1;
for k:=1 to i do
m:=m*sc; {возводим число в степень i}
arm:=m=v;
end;
var ch,i,k:integer;
begin
Write ('Введите число ch=');
Read (ch);
k:=0;
for i:=1 to ch do
if arm (i) then
 begin
  write(i,' ');
  k:=1;
 end;
if k=0 then write('Чисел по условию  нет');
end.