fork download
copy 
  1.        read(*,*)i
  2.        if(i.gt.1) then
  3.        go to 4
  4.        endif
  5. 4      j=i-1
  6.        go to 2
  7. 1      c=mod(i,j)
  8.        if(c.gt.o) then
  9.        j=j-1
  10.        go to 2
  11.        else
  12.        write(*,*)'compiste no.'
  13.        endif
  14.        go to 10
  15. 2      if(j.gt.1) then
  16.        go to 1
  17.        else
  18.        write(*,*)'prime no.'
  19.        endif
  20. 10     write(*,*)'work done' 
  21.        stop
  22.        end
Success #stdin #stdout 0s 5476KB
comments (?)
stdin
copy 
1
stdout
copy 
 prime no.
 work done
https://ideone.com/wEQ4wZ
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!