Вводим числа через пробел в одну строку и получаем что надо.Работает с буквами и со всем чем только можно.
var b: String;
var c : array of String;
begin
Read(b);
c:= b.Split(' ');
for var i:= 0 to c.Length do
begin
writeLn();
for var w:= 0 to c.Length-1-i do
write(c[w]+' ');
end;
end.