6 lines
137 B
Text
6 lines
137 B
Text
procedure main()
|
|
A := []
|
|
"Hello,How,Are,You,Today" ? while put(A, 1(tab(upto(',')|0),=","))
|
|
every writes(!A,".")
|
|
write()
|
|
end
|