4700  "L" input "p:";P:input "q:";Q:print -P/2+û((-P/2)^2-Q):print -P/2-û((-P/2)^2-Q):goto 6000