polkovniki daviT maRlakeliZe erekle meoris samxedro xelovneba ...

IF v > v0 * .5 THEN GOTO 20
LPRINT u, v
LPRINT "alkis danakargebia chveni", u0 - u, "mtris", v0 - v
LPRINT "brdzola marjvniv"
umm = 500
vmm = (16500 - (2600 - y1)) / 16
umm0 = umm
vmm0 = vmm
30
ummm = umm - vmm * a0
vmmm = vmm - umm * 4.5 * a0
umm = ummm
vmm = vmmm
IF vmm > vmm0 * .5 THEN GOTO 30
danmu = umm0 - umm
danmv = vmm0 - vmm
LPRINT "marjvniv danakargebi chveni", umm0 - umm, "mteri", vmm0 - vmm
LPRINT "brzola marcxniv"
uc = x2
vc = 2600 / 4
uc0 = uc
vc0 = vc
40
ucm = uc - vc * a0
vcm = vc - uc * a0 * 4.5
uc = ucm
vc = vcm
IF vc > vc0 * .75 THEN GOTO 40
dcch = uc0 - uc
dcm = vc0 - vc
LPRINT "marcxniv danakargebi chveni", dcch, "mteri", dcm
LPRINT "rezervis brdzola"
165