Kambala
Нельзя переопределять функцию.
Я пытался, пытался, пытался.... И ничего у меня не вышло. Завтра буду исправлять.
PHP код:
var
  x: longint;

procedure rec;
begin
  read(x);
  if x <> 0 then rec;
  write(x, ' ');
end;

begin
  rec;
end.