dim'comp'896''
dim'pnr'l50''
dim'iks'l50''dim'y'l50''dim'r'l50''dim'h'l50''
e'nt'np''
sl9'0'flo'l';'eins''
0'flo'2';'zwei''

0'flo'4';'vier''
sl03'0';'xs''
s00'0';'ys''0';'rs''
0';'hs''
0';'q''
0';'p''
0';'n''
0';'sumfr''
0';'sumfh''
0';'mk''
sl'read'modt''0';'nt''0';'np''
s2'read'pnr'nt''
bring'pnr'nt'trn's5''
s3'finp'r'nt'finp'h'nt''
r'nt'f+'rs';'rs''
h'nt'f+'hs';'hs''
s4'nt'+'l';'nt''use's2''
s5'nt';'anz''0';'nt''stop''read'modp''
when'modp'equal'modt'trn's6''
sl04'cr''0'print'modt''tab''0'print'modp''stop''use'sl03''
s6'read'nr''

when'nr'equal'pnr'nt'trn's8''
s7'cr''0'print'pnr'nt''tab''0'print'nr''stop''use'sl03''

s8'finp'iks'np'finp'y'np''
iks'np'f+'xs';'xs''
y'np'f+'ys';'ys''
s9'when'np'equal'anz'trn'sl0''
np'+'l+;'np''
nt'+'l';'nt''use's6''
sl0'0'flo'anz';'anzgk''
sll'xs'f/'anzgk';'xs''
ys'f/'anzgk';'ys''
rs'f/'anzgk';'rs''
hs'f/'anzgk';'hs''
sl2'cr''0'print'modt''cr''cr''
fprt'xs'tab''
fprt'ys'tab''
fprt'rs'ta''
fprt'hs'cr''
sl3'0';'np''
sl4'iks'np'f-'xs';'iks'np''
y'np'f-'ys';'y'np''
r'np'f-'rs'f-'iks'np';'vx''
h'np'f-'hs'f-'np';'vy''
sl5'	iks'np'fx'vx'f+'y'np'fx'vy'f+'q';'q''
	y'np'fx'vx'f-'iks'np'fx'vy'f+'p';'p''
		iks'np'fx'iks'np'f+'y'np'fx'y'np'f+'n';'n''
sl6'	when'np'equal'anz'trn'sl8''
sl7'	np'+'l';'np''use'sl4''
sl8'	q'f/'n';'q''
	p'f/'n';'p''
	>['<q'f+'eins'>]<';'ql''
s20'	sqrt'>['<p'fx'p'f+'ql'fx'ql'<>]'<;'v''
s2l'	atan'>['<p'f/'ql'>]'<;'epsi''
s22'	3'flo'6366l';'k''
	5'flo'96'f+'k';'k''
	epsi'fx'k';'epsi''
s23'	cr''fprt'q''tab''fprt'p''ab''fprt'v''tab''fprt'epsi''cr''
s24'	stop''0';'np''cr''0'print'modt''
s25'	iks'np';'xv''
	y'np';'yv''
s26'	ret'sl02''use'sl00''
s27'	xkr'f-'r'np';'r'np''
	ykr'f-'h'np';'h'np''
	r'np'f+'sumfr';'sumfr''
h'np'f+'sumfh';'sumfh''
s28'	cr''0'print'pnr'np''tab''fprt'xkr''tab''fprt'ykr''
	when'np'equal'anz'trn's29''
	np'+'l';'np''use's25''

sl00'	xv'f+'xv'fx'q'f+'yv'fx'p'f+'rs';'xkr''
sl0l'	yv'f+'yv'fx'q'f-'xv'fx'p'f+'hs';'ykr''
sl02'	use's00''

s29'	read'nr''
	bring'nr'trn's33''
s30'	finp'xv''finp'yv''
	xv'f-'xs';'xv''
	yv'f-'ys';'yv''
s3l'	ret'sl02''use'sl00''
s32'	cr''0'print'nr''tab''fprt'xkr''tab''fprt'ykr''use's29''
s33'	stop''0';np''cr''cr''0'print'modt''cr''
s34'	r'np'fx'r'np'f+'h'np'fx'h'np'f+'mk';'mk''
s35'	cr''0'print'pnr'np''tab''3'unflo'r'np';'fr''3'print'fr''
	tab''3'unflo'h'np';'fr''3'print'fr''
s36'	when'np'equal'anz'trn's38''
s37'	np'+'l';'np''use's34''
s38'	sqrt'>[<'mk'f/'>[<'zwei'fx'anzgk'f-'vier'>]']'<;'mk''
s39'	cr''cr''3'unflo'mk';'mk''3'print'mk''tab''fprt'sumfr''
	tab''fprt'sumfh''stop''use'sl03'''