Zitat von
TUX_der_Pinguin:
Ups ich hatte eine Zeile im Original code noch vergessen, aber die ist identisch mit der aus meiner Implementierung.
if j > k then Dec(j,k) else j := 0; OK. Ist aber trotzdem unschön. Ein einfaches
dec(j,k) reicht völlig aus, denn j<0 wird ja durch die While-Bedingung angefangen.
Gammatester