procedure main:
declare values as a dynamic array of float
declare value_count := 0
if process_number = 0 then
declare value := 0
while can_read(stdin) do
append(values, value)
end while
value_count := count(values)
for target := 1 to process_count do
send(&value_count, 1, target)
send(&values, count(values), target)
end
else
receive(&value_count, 1, 0)
resize(values, value_count)
receive(&values, value_count, 0)
end if
for index := 0 to count(values) do
print(process_number, ": ", index, ": ", values[index])
end for
end procedure