fork download
copy 
  1.        read(*,*)i
  2.        if(i.gt.1) then
  3.        go to 20
  4.        else
  5.        go to 10
  6.        endif
  7. 20     j=i-1
  8.        go to 2
  9. 1      c=mod(i,j)
  10.        if(c.gt.o) then
  11.        j=j-1
  12.        go to 2
  13.        else
  14.        i=i-1
  15.        go to 3
  16.        endif
  17.        go to 10
  18. 2      if(j.gt.1) then
  19.        go to 1
  20.        else
  21.        write(*,*)i
  22.        i=i-1
  23.        go to 3
  24.        endif
  25. 3      if(i.ge.k) then
  26.        go to 20
  27.        endif
  28. 10     write(*,*)'work done' 
  29.        stop
  30.        end
Success #stdin #stdout 0s 5420KB
comments (?)
stdin
copy 
100
1
stdout
copy 
          97
          89
          83
          79
          73
          71
          67
          61
          59
          53
          47
          43
          41
          37
          31
          29
          23
          19
          17
          13
          11
           7
           5
           3
           2
           1
           0
 work done
https://ideone.com/G0mKXL
language:
Fortran (gfortran 8.3)
created:
1 year ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!