Integer sum
sum=0
do 20 k=1,50
Sum=sum +k**2
20 continue
Print*,'sum=',sum
Stop
end
ICAgICAgIEludGVnZXIgc3VtIAogICAgICAgc3VtPTAKICAgICAgIGRvIDIwIGs9MSw1MAogICAgICAgU3VtPXN1bSArayoqMgogMjAgICAgY29udGludWUgCiAgICAgICBQcmludCosJ3N1bT0nLHN1bSAKICAgICAgIFN0b3AgCiAgICAgICBlbmQ=