9 lines
246 B
Text
9 lines
246 B
Text
|
procedure main()
|
||
|
|
numChars := '-'++&digits
|
||
|
|
read() ? {
|
||
|
|
A := (tab(upto(numChars)), integer(tab(many(numChars))))
|
||
|
|
B := (tab(upto(numChars)), integer(tab(many(numChars))))
|
||
|
|
}
|
||
|
|
write((\A + \B) | "Bad input")
|
||
|
|
end
|