program-id.w.data division.working-storage section.
1 x pic 9(9).
1 y pic 9(9).
1 s pic x(9).
procedure division.a.accept s
unstring s delimited" "into x y
compute x=.5+((x*x*4+y*y*3)**.5-x)/3
display x(9- function log10(x):)if x<>2203 go a.