Напишите программу в паскаль! Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в K

program Amstrong;var a,b: integer; i,j,k, ci, si,mi, errkod: integer; sti: string; flag: Boolean;begin Readln(a,b); flag:=false; for i:=a to b do begin str(i, sti); si:=0; for j:=1 to Length(sti) do begin val(sti[j],mi,errkod); ci:=1; for k:=1 to Length(sti) do ci:=ci*mi; si:=si+ci; end; if si=i then begin write(si,\' \'); flag:=true end; end; if not flag then write(-1); Readln; end.Второй вариант выполнения программы:vari,l,k,a,b,c,s,e,g,f,x,h,j:integer;beginfor i:=100 to 9999 dobeginl:=i;while l<>0 dobeginl:=l div 10;k:=k+1;end;if k=3 thenbegina:=i mod 10;b:=i div 100;c:=i div 10 mod 10;s:=a*a*a+b*b*b+c*c*c;if i=s thenwrite(i,\' \');endelsebegine:=i mod 10;g:=i div 10 mod 10;f:=i div 100 mod 10;x:=i div 1000;h:=f*f*f*f+g*g*g*g+e*e*e*e+x*x*x*x;if i=h thenwrite(i,\' \');end;k:=0;end;end.