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

var
x: longint; s: string;

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

Хотя этот вариант не подходит, так как тут используються две переменные и строка --- тоже масив чаров.