.CHARSET 1251 ; Ôàéë 3-14m .ORG 0 M A M B F SQRT M 1 1 M C 2 M 4 K GSB 7 3 M 4 K GSB 7 5 A13: ; ñ àäðåñà 23 M 4 K GSB 7 RM 4 2 - M 4 K GSB 7 RM 4 4 + GOTO A13 0 M 5 A27: ; ñ àäðåñà 49 RM 1 RM 4 - F X!=0 A76 F X>=0 A51 RM A RM 4 / ENT K INT M 9 K NOP - F X=0 A69 RM 9 M A F SQRT M 1 K RM 5 GOTO A27 A51: ; ñ àäðåñà 32 RM 5 F X!=0 A57 RM 4 R/S K GSB 8 A57: ; ñ àäðåñà 52 1 M 5 RM A M 4 R/S A62: ; ñ àäðåñà 81 K GSB 8 0 A64: ; ñ àäðåñà 53 R/S RM B R/S RM C R/S A69: ; ñ àäðåñà 42 RM 5 A70: ; ñ àäðåñà 33 F X!=0 A75 RM 4 R/S K GSB 8 A75: ; ñ àäðåñà 70 RTN A76: ; ñ àäðåñà 30 RM 5 2 + M 5 RM 4 GOTO A62 RM B RM 4 / RM 4 1 - * M B K RM 5 RM C RM 5 * M C RTN .END