Числа Армстронга

var
chislo:string[200];
 i,k,n,s,ercode,zn:integer;
 
BEGIN
writeln('Введите число');
readln(chislo);
 n:=length(chislo);
  s:=0;
  for i:=1 to length(chislo) do
    begin val(chislo,k,ercode); s:=s+k; end;
    
 val(chislo,zn,ercode);
 
 if exp(n*ln(abs(s))) = zn then writeln('Это число Армстронга!');
 
 END.

uses crt;
function Armstrong(n:longint):boolean;
var t,m,p,s,i,j:integer;
    a,b:array[1..100]of integer;
begin
s:=0;
m:=n;
p:=0;
while m<>0 do
 begin
  inc(p);
  a[p]:=m mod 10;
  m:=m div 10
 end;
for i:=1 to p do
 begin
  b[i]:=1;
  for j:=1 to p do
  b[i]:=b[i]*a[i];
  s:=s+b[i];
 end;
if s=n then Armstrong:=true
else Armstrong:=false;
end;
var k,i:longint;
begin
clrscr;
write('vvedite chislo k=');
readln(k);
for i:=1 to k do
if Armstrong(i) then write(i,' ');
readln
end.

uses crt;
function Armstrong(n:longint):boolean;     
var t,m,p,s,i,j:integer;
    a,b:array[1..100]of integer;    задаём массив,кстати зачем 2 массива ?
begin                                        
s:=0;
m:=n;                                     приравниваем М входной переменной 
p:=0;
while m<>0 do                          если м не равно 0 то выполняем
 begin
  inc(p);                                  /как я понял эта функция должна увиличивать переменную только как
                                             /это работает я не понял , ни разу не сталкивался ещё с этим...
  a[p]:=m mod 10;                    / зачем мы это делаем ?
  m:=m div 10                          /
 end;
for i:=1 to p do                        / ну дальше вроде всё понятно....
 begin
  b[i]:=1;
  for j:=1 to p do
  b[i]:=b[i]*a[i];
  s:=s+b[i];
 end;
if s=n then Armstrong:=true
else Armstrong:=false;
end;
var k,i:longint;
begin
clrscr;
write('vvedite chislo k=');
readln(k);
for i:=1 to k do
if Armstrong(i) then write(i,' ');
readln
end.

program Armstrong;
 var
  s:string;
  i,ercode:integer;
  z,k,sum:real;
  
  BEGIN
  
  readln(s);
   val(s,z,ercode);
    if ercode<>0 then halt;
             sum:=0;
      for i:=1 to length(s) do
        begin val(s[i],k,ercode);
          if ercode<>0 then halt else
             if k<>0 then sum:=sum+exp(length(s)*ln(k)); end;
                
    if z=sum then writeln('Это число армстронга') else writeln('Нет, это не число Армстронга');
     end.

program Armstrong;
{$R-}

var
g,k,h:integer;
function arm:integer;
begin
while h>0 do
begin
h:=h mod 10;
arm:=arm+h;
end;
end;
function arm2:integer;
begin
arm2:=h div 10;
end;
BEGIN
h:=1;
writeln('BBeguTe k');
read(k);
for h:=1 to k do
g:=exp(ln(arm)*arm2);
if g=h then writeln('g=',g);
end.

Program n1;
function st(a,b: integer): integer;
var i: integer;
begin
st:=1;
for i:=1 to b do st:=st*a;
end;
function ams(x: integer): boolean;
var k,t: integer;
sum: integer;
begin
ams:=false;
t:=x;
k:=0;
while x<>0 do
begin
x:=x div 10;
k:=k+1;
end;
x:=t;
sum:=0;
while t<>0 do
begin
sum:=sum+st(t mod 10,k);
t:=t div 10;
end;
if x=sum then ams:=true;
end;
var i,k: integer;
begin
readln(k);
for i:=1 to k do if ams(i) then write(i,' ');
end.