Ideone.com

fork download

copy

       read(*,*)i,k
4       if(i.gt.1) then
       go to 20
       else
       go to 10
       endif
20     j=i-1
       go to 2
1      c=mod(i,j)
       if(c.gt.o) then
       j=j-1
       go to 2
       else
       i=i-1
       go to 3
       endif
       go to 10
2      if(j.gt.1) then
       go to 1
       else
       write(*,*)i
       i=i-1
       go to 3
       endif
3      if(i.ge.k) then
       go to 4
       endif
10     write(*,*)'work done' 
       stop
       end

Success #stdin #stdout 0.22s 5400KB

stdin

copy

10000
1000

stdout

copy

https://ideone.com/r5eOH8

language:

Fortran (gfortran 8.3)

created:

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!

Discover > Sphere Engine API

Discover > IDE Widget

Choose your language