5 lines
139 B
Text
5 lines
139 B
Text
procedure main()
|
|
every put(x := [], 1 to 10)
|
|
writes("x := [ "); every writes(!x," "); write("]")
|
|
write("Quadratic mean:",q := qmean!x)
|
|
end
|