; Berechnet die Summe der ersten n Quadratzahlen

print n:
read 0 ; n
data 1
stor 1 ; 1
data 0
stor 3 ; erg

:continue
lade 0
mul* 0 ; n^2
stor 2
lade 3
add+ 2 
stor 3 ; erg := erg + n^2

lade 0
sub- 1 ; n--
stor 0
go.p :continue

writ 3
end.