Тема: Свободный практикум

Ура!!! Я сделал.

PHP код:

var
  x: ^longint; s: string; 

begin
  new(x);
  read(^x); 
  while ^x <> 0 do 
  begin
    s := IntToStr(^x) + ' ' + s; 
    read(^x); 
  end;
  dispose(x);
  write(0, ' ', s); 
end.