Ну вот. Я не успел. Вот моё решение.
Спойлер 123:
function rec : string;
var x:longint;
begin
read(x);
if x = 0 then rec:= '0' else rec := rec + ' '+ IntToStr(x);
end;
begin
writeln(rec);
end.