Определить, является ли введенное число числом Амстронга. Числом Амстронга называется число, равное сумме своих цифр в степени их количества. Например: 153= 1^3+5^3+3^3
Написать метод решения и составить блок-схему
ОЧЕНЬ СРОЧНО!! ПОМОГИТЕ,ПОЖАЛУЙСТА

var a,b,k,s:integer;beginreadln(a);b:=a;k:=0;while b>0 do begin k:=k+1; b:=b div 10; end;b:=a;while b>0 do begin s:=s+round(power((b mod 10),k)); b:=b div 10; end;if a=s then writeln('Число ',a,' является числом Армстронга')else writeln('Число ',a,' не является числом Армстронга');end.Пример:153Число 153 является числом Армстронга