read(*,*)i
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
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
ICAgICAgIHJlYWQoKiwqKWkKICAgICAgIGlmKGkuZ3QuMSkgdGhlbgogICAgICAgZ28gdG8gMjAKICAgICAgIGVsc2UKICAgICAgIGdvIHRvIDEwCiAgICAgICBlbmRpZgoyMCAgICAgaj1pLTEKICAgICAgIGdvIHRvIDIKMSAgICAgIGM9bW9kKGksaikKICAgICAgIGlmKGMuZ3QubykgdGhlbgogICAgICAgaj1qLTEKICAgICAgIGdvIHRvIDIKICAgICAgIGVsc2UKICAgICAgIHdyaXRlKCosKiknY29tcGlzdGUgbm8uJwogICAgICAgZW5kaWYKICAgICAgIGdvIHRvIDEwCjIgICAgICBpZihqLmd0LjEpIHRoZW4KICAgICAgIGdvIHRvIDEKICAgICAgIGVsc2UKICAgICAgIHdyaXRlKCosKikncHJpbWUgbm8uJwogICAgICAgZW5kaWYKMTAgICAgIHdyaXRlKCosKiknd29yayBkb25lJyAKICAgICAgIHN0b3AKICAgICAgIGVuZA==