program-id.y.data division.working-storage section.
1 i pic 999.
procedure division.a.add 1 to i
if 3=i(2:1)or 3=i(3:)or i=i/3*3 display"aho"else display i(3- function log10(i):).if i<300 go a.