Cevap :
a=0
b=0
c=1
d=0
j=10
read(*,*)i
10 k=a+b+c+d
m=j/k
n=k*m
if(n==j) write(*,*)j
d=d+1
j=j+1
if(d==10) goto 20
if(j>i) goto 40
goto 10
20 c=c+1
d=0
if(c==10) goto 30
goto 10
30 b=b+1
c=0
d=0
if(b==10) goto 50
if(j>i) goto 40
50 a=a+1
b=0
c=0
d=0
if(a.ne.10) goto 10
40 stop
end
bu 1-99999 arasi degil ama isine yarayacagini düsünüyorum
a=0
b=0
c=1
d=0
j=10
read(*,*)i
10 k=a+b+c+d
m=j/k
n=k*m
if(n==j) write(*,*)j
d=d+1
j=j+1
if(d==10) goto 20
if(j>i) goto 40
goto 10
20 c=c+1
d=0
if(c==10) goto 30
goto 10
30 b=b+1
c=0
d=0
if(b==10) goto 50
if(j>i) goto 40
50 a=a+1
b=0
c=0
d=0
if(a.ne.10) goto 10
40 stop
end