dim'comp'5l2''
dim'a'3ll''
dim'b'37''
dim'c'7''
dim'st'20l''
dim'y'3l''
dim'tm'3l''
dim'q0'20l''
dim'm0'20l''
dim'phi'3l''
dim'mquer'3l''
index'i'j'k'f'g''
s00'0'flo'0';'null''
0'flo'l';'eins''
0'flo'2';'zwei''
0'flo'3';'drei''
0'flo'4';'vier''
0'flo'5';'fuenf''
0'flo'6';'sechs''
0'flo'24';'c24''
0'flo'l20';'cl20''
sl'read'anfan''
when'anfan'equal','47l'+'l000'x'l47l'.'trn's24''
when'anfan'equal','562'+'l000'x'l046'.'trn's25''use'sl''
s24'aread'absch''aprt'absch''
read'pos''0'print'pos''
read'side''0'print'side''
read'nf''cr''cr''0'print'nf''
nf'x'2';'nf''nf'+'l';'lnf''
0';'snab''
0';'k''0';'f''0';'j''6';'i''
s2'read'feldo''
s3'when'feldo'less'22l'trn's5''
s4'when'feldo'grt'222'trn's5''use's6''
s5'0'print'feldo''use'sl''


s6'finp'cm''cr''7'unflo'cm';'uncm''7'print'uncm''
s8'ret's97''use's96''
sl5'when'k'equal'nf'trn'sl7''
s9'k'+'l';'k''i'+'2';'i''
sl0'read'b'i''b'i'+'snab';'snab'0'print'b'i''
sll'read'y'k''0'print'y'k''3'flo'y'k';'y'k''finp'tm'k''7'unflo'tm'k';'untm''7'print'untm''
y'k'f/','zwei'fx'tm'k'.';'y/2tm''sechs'fx'tm'k'f/'y'k';'6tm/l''
sl2'ret's2l''use's20''
sl3'read'st'f''cr''0'print'f''0'print'st'f''
3'flo'st'f';'st'f''f'+'l';'f''
sl4'when'f'equal'snab'trn'sl6''use'sl3''
sl6'k'+'l';'k''use's6''
sl7'read'feldn''
sl8'when'feldn'less'22l'trn's5''
sl9'when'feldn'grt'222'trn's5''
snab'-'l';'sumna''



s22'read'nlast''cr''0'print'nlast''
s2read'lfnr''0';'k''cr''0'print'lfnr''nlast'-'l';'nlast''
s27'null';'phi'k''null';'mquer'k''
s28'iter'k'l'lnf's27''


s75'0';'f''
s23'null';'q0'f''null';'m0'f''iter'f'l'snab's23''
s29'0';'snab''6';'i''null';'sumy''use's30''
s20'j'+'l';'j''null'f-'zwei';'a'j''
j'+'l';'j''y/2tm';'a'j''
j'+'l';'j''null';'a'j''
j'+'l';'j''6tm/l';'a'j''
j'+'l';'j''null'f-'zwei';'a'j''
j'+'l';'j''null';'a'j''
j'+'l';'j''null';'a'j''
j'+'l';'j''null';'a'j''
j'+'l';'j''eins';'a'j''
s2l'use's00''

s96'j'+'l';'j''eins';'a'j''
j'+'l';'j''null';'a'j''
j'+'l';'j''null';'a'j''
j'+'l';'j''null'f-'cm';'a'j''
j'+'l';'j''eins';'a'j''
j'+'l';'j''null';'a'j''
j'+'l';'j''null';'a'j''
j'+'l';'j''null';'a'j''
j'+'l';'j''eins';'a'j''
s97'use's00''
s7'0'print'f''use'sl''



s30'read'f''
when'f'equal'l34'trn's30''
when'f'equal'6946'trn's95''
when'f'equal'9659'trn'sl5''
when'f'equal'snab'trn's3l''
s32'when'f'grt'snab'trn's3l''use's35''
sl5'null';'sumy''use's30''
s3l'when'f'grt'sumna'trn's7''i'+'2';'i''
b'i'+'snab';'snab''i'-'7';'k''use's32''
s35'read'ql''read'q2''cr''0'print'f''0'print'ql''0'print'q2''
3'flo'ql';'ql''3'flo'q2';'q2''0';'x3''
sumy'f+'st'f';'sumy''
y'k'f-'sumy';'x2''x2'f+'st'f';'xl''
q2'f-','ql'f-'q2'.'fx'x2'f/'st'f';'qs''
ql';'ksi''xl';'alfa''
s36'alfa'fx'alfa';'alfa2''alfa'fx'alfa2';'alfa3''
s37','vier'fx'ksi'f+'qs'.'fx'alfa'fx'alfa3'f/','cl20'fx'tm'k'.';'teta''
s38'phi'k'f+','drei'fx'ksi'f+'qs'.'fx'a<fa3'f/','c24'fx'tm'k'.'f-'drei'f/'
y'k'fx'teta';'phi'k''
s39'mquer'k'f+'sechs'fx'tm'k'fx'teta'f/','y'k'fx'y'k'.'f-'alfa2'fx','zwei'fx'ksi'f+'qs'.'
f/'sechs';'mquer'k''
s40'x3'+'l';'x3''when'x3'equal'2'trn's42''
s4l'null'f-'q2';'ksi''null'f-'qs';'qs''x2';'alfa''use's36''
s42'x2'fx'x2';'x4''



s43'read'pl''0'print'pl''when'pl'equal'0'trn's33''3'flo'pl';'pl''
s44'phi'k'f+'pl'fx'x4'fx','eins'f-','x2'f/'y'k'.'.'f/','zwei'fx'tm'k'.';'phi'k''
s45'mquer'k'f-'pl'fx'x2'fx','eins'f-','x4'f/','y'k'fx'y'k'.'.'.';'mquer'k''
s33'ql'f+'q2';'qlr''st'f'fx'qlr'f/'zwei';'qf''
s34','qlr'f+'ql'.'fx'st'f'f/','drei'fx'qlr'.';'sf''
s78','qf'fx','x2'f+'sf'.'f+'pl'fx'x2'.'f/'y'k';'q0k''
s79'q0k'f-'qf'f-'pl';'q0kf''
s80'f';'nab''
snab'-'b'i';'f''
s8l'null';'sumyf''
s82'sumyf'f+'st'f';'sumyf''
s83'm0'f'f+'q0k'fx'sumyf';'m0'f''
s84'q0'f'f+'q0k';'q0'f''f'+'l';'f''
when'f'equal'nab'trn's85''use's82''
s85'null';'sumf''
s94'sumyf'f+'st'f';'sudyf''
m0'f'f+'q0k'fx'sumyf'f-'qf'fx','sumf'f+'sf'.'f-'pl'fx'sumf';'m0'f''
q0'f'f+'q0kf';'q0'f''
s86'f'+'l';'f''
s87'sumf'f+'st'f';'sumf''
when'f'equalsnab'trn's30''use's94''
s95'0'print'f''



s46'read'k''
when'k'equal'9659'trn's47''
cr''0'print'k''
read'ml''0'print'ml''3'flo'ml';'ml''
mquer'k'f+'ml';'mquer'k''
use's46''
s47'l';'i''l';'p''0'print'k''
s48'null';'b'i''
s49'iter'i'l'5's48''eins';'b'6''
when'feldo'equal'22l'trn's50''
when'feldo'equal'222'trn's5l''
s50'eins';'b'2''use's52''
s5l'eins';'b'l''
s52'3';'j''lnf'x'9';'nf9''0';'k''
s53'phi'k';'a'j''j'+'3';'j''mquer'k';'a'j''
j'+'6';'j''k'+'l';'k''
when'j'grt'nf9'trn's54''use's53''




s54'9';'r''l';'s''lnf';'nfl''
s55'l';'i''l';'g''l';'d''l';'e''
s56's';'j''g'-'l';'g''d'+'2';'dl''
s57'null';'sum''
s58'a'j'fx'b'i'f+'sum';'sum''
j'+'l';'j''
iter'i'l'dl's58''
g'+'l';'g''sm';'c'g''trace''d';'i''
when'r'grt'j'trn's57''
d';'g''
s59'c'g';'b'i''g'+'l';'g''
iter'i'l'dl's59''
d'+'3';'d''d';'i''
iter'e'l'2's56''
s'+'9';'s''r'+'9';'r''
when'p'equal'2'trn's67''
nfl'-'l';'nfl''
when'nfl'equal'0'trn's60''use's55''
s60'p'+'l';'p''
when'feldn'equal'22l'trn's6l''
when'feldn'equal'222'trn's62''
s6l'b'l';'ca''b'4';'cb''use's63''
s62'b'2';'ca''b'5';'cb''
s63'l';'i''0';'k''
s64'null';'b'i''
iter'i'l'5's64''eins';'b'6''l00';'f''
when'feldo'equal'22l'trn's65''
when'feldo'equal'222'trn's66''
s65'null'f-'cb'f/'ca';'b'2''use's54''
s66'null'f-'cb'f/'ca';'b'l''use's54''





s67'k'+'l';'k''
ps32's68''use's69''
s68'b'l'f+'b'4';'phi'k''cr''k'-'l';'kk''0'print'kk''fprt'phi'k''
s69'b'2'f+'b'5';'mquer'k''trace''
s70'wwhe'k'equal'nfl'trn's7l''use's55''
s7l'0';'snab''6';'i''0';'f''l';'k''0';'g''
s72'i'+'2';'i''snab'+'b'i';'snab''null';'sumyf''
g'+'l';'g''mquer'g';'ml''
g'+'l';'g''null'f-','ml'f-'mquer'g'.'f/'y'k';'teta''
s73'sumyf'f+'st'f';'sumyf''
teta'fx','umyf'f-'y'k'.'f+'mquer'g';'mq''
s74'cr''0'print'f''mq'f+'m0'f';'alfa''3'unflo'alfa';'alfa''0'print'alfa''
q0'f'f+'teta';'ksi''3'unflo'ksi';'ksi''0'print'ksi''
f'+'l';'f''
s89'when'f'less'snab'trn's73''
s90'k'+'2';'k''
when'k'grt'nf'trn's9l''use's72''
s9l'when'nlast'equal'0'trn's93''use's26''
s93'0';'j''
s98'cr''
iter'j'l'l0's98''
psl6'sl''

25'stop''
use'sl'''l