INTEGER I,SUM
SUM=0
I=1
10 IF(I.EQ.0)GOTO 20
SUM=SUM+I
I=I*2
GOTO 10
20 WRITE(6,100) SUM
100 FORMAT(16H 1+2+4+8+16+...=,I10)
STOP
END
ICAgICAgSU5URUdFUiBJLFNVTQogICAgICBTVU09MAogICAgICBJPTEKICAgMTAgSUYoSS5FUS4wKUdPVE8gMjAKICAgICAgU1VNPVNVTStJCiAgICAgIEk9SSoyCiAgICAgIEdPVE8gMTAKICAgMjAgV1JJVEUoNiwxMDApIFNVTQogIDEwMCBGT1JNQVQoMTZIIDErMis0KzgrMTYrLi4uPSxJMTApCiAgICAgIFNUT1AKICAgICAgRU5E