read(*,*)i
if(i.gt.1) then
go to 4
else
go to 10
endif
4 j=i-1
go to 2
1 c=mod(i,j)
if(c.gt.o) then
j=j-1
go to 2
else
write(*,*)'compiste no.'
endif
go to 10
2 if(j.gt.1) then
go to 1
else
write(*,*)'prime no.'
endif
10 write(*,*)'work done'
stop
end
ICAgICAgIHJlYWQoKiwqKWkKICAgICAgIGlmKGkuZ3QuMSkgdGhlbgogICAgICAgZ28gdG8gNAogICAgICAgZWxzZQogICAgICAgZ28gdG8gMTAKICAgICAgIGVuZGlmCjQgICAgICBqPWktMQogICAgICAgZ28gdG8gMgoxICAgICAgYz1tb2QoaSxqKQogICAgICAgaWYoYy5ndC5vKSB0aGVuCiAgICAgICBqPWotMQogICAgICAgZ28gdG8gMgogICAgICAgZWxzZQogICAgICAgd3JpdGUoKiwqKSdjb21waXN0ZSBuby4nCiAgICAgICBlbmRpZgogICAgICAgZ28gdG8gMTAKMiAgICAgIGlmKGouZ3QuMSkgdGhlbgogICAgICAgZ28gdG8gMQogICAgICAgZWxzZQogICAgICAgd3JpdGUoKiwqKSdwcmltZSBuby4nCiAgICAgICBlbmRpZgoxMCAgICAgd3JpdGUoKiwqKSd3b3JrIGRvbmUnIAogICAgICAgc3RvcAogICAgICAgZW5k