function f(n);f=2**(n/10)+2**mod(n,10);end do i=3,9;do j=9,29;do k=9,23;do l=9,59;do m=9,59 if(2**i+f(j)+f(k)+f(l)+f(m)==1022)print'(5i0.2)',i,j,k,l,m enddo;enddo;enddo;enddo;enddo;end