18 lines
181 B
Text
18 lines
181 B
Text
func sqr n .
|
|
return n * n
|
|
.
|
|
print sqr 3
|
|
#
|
|
proc divmod a b &q &r .
|
|
q = a div b
|
|
r = a mod b
|
|
.
|
|
divmod 11 3 q r
|
|
print q & " " & r
|
|
#
|
|
subr sqr2
|
|
a = a * a
|
|
.
|
|
a = 5
|
|
sqr2
|
|
print a
|