!       Psifiaki riza:

        integer a,y,i,m
        real*8 x
                        
        print *,'Give the number now! :'
        read*,x
        m=x
        
        do i=1,500
        a=0
 7      continue
 
        if ((x/10.0d0).ge.1) then                  
         a=a+x-((int(x/10))*10)
         x=int(x/10.0d0)
         print *,a,x        
        else
         goto 10
        end if
        goto 7
         
 10     continue
        a=a+int(x)
        y=a
        x=y
        
        print *,' '
        print *,i**5,'+',i**3,i-78
        end do               

        print *,' '
        print *,' '
        print *,' '
        print *,' '
        print *,' '
        print *,' '
        print *,' '
        print *,' '
        print *,' '
        print *,' '
        print *,' '
        print *,' '
        print *,' '
        print *,'H pfifiaki riza tou: ',m
        print *,'is...............  : ',y
        print *,' ' 
        print *,'H pfifiaki riza tou: ',m
        print *,'is...............  : ',y
        print *,' '
        end