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