11 lines
184 B
Text
11 lines
184 B
Text
\util.g
|
|
|
|
proc nonrec main() void:
|
|
*char par;
|
|
word i;
|
|
i := 0;
|
|
while par := GetPar(); par ~= nil do
|
|
i := i + 1;
|
|
writeln(i:3, ": '", par, "'")
|
|
od
|
|
corp
|