fork download
copy 
  1.        read(*,*)i,k
  2. 4       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 4
  27.        endif
  28. 10     write(*,*)'work done' 
  29.        stop
  30.        end
Success #stdin #stdout 0.01s 5504KB
comments (?)
stdin
copy 
1000
0
stdout
copy 
         997
         991
         983
         977
         971
         967
         953
         947
         941
         937
         929
         919
         911
         907
         887
         883
         881
         877
         863
         859
         857
         853
         839
         829
         827
         823
         821
         811
         809
         797
         787
         773
         769
         761
         757
         751
         743
         739
         733
         727
         719
         709
         701
         691
         683
         677
         673
         661
         659
         653
         647
         643
         641
         631
         619
         617
         613
         607
         601
         599
         593
         587
         577
         571
         569
         563
         557
         547
         541
         523
         521
         509
         503
         499
         491
         487
         479
         467
         463
         461
         457
         449
         443
         439
         433
         431
         421
         419
         409
         401
         397
         389
         383
         379
         373
         367
         359
         353
         349
         347
         337
         331
         317
         313
         311
         307
         293
         283
         281
         277
         271
         269
         263
         257
         251
         241
         239
         233
         229
         227
         223
         211
         199
         197
         193
         191
         181
         179
         173
         167
         163
         157
         151
         149
         139
         137
         131
         127
         113
         109
         107
         103
         101
          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
 work done
https://ideone.com/m5jx2d
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!