declare 
a integer:=&a;
c integer:=a;
d integer;
sume integer:=0;
begin
   
     while (a>0)
   loop
         d:=mod(a,10);
         sume:=sume+d*d*d;
         a:=trunc(a/10);
    end loop;
  if (sume=c)
then 
   dbms_output.put_line('Amstrong number');
else
  dbms_output.put_line('Not Amstrong number');
end if;
end;
/