integer x=1; x_max=2; y=1; y_max=5; num=0.0
do 10 x=1,x_max
do 20 y=1,y_max
if (x*y <= x_max*y_max) then
num=num+1
Print *, num
End if
20 continue
10 continue
end