сделать массив из цифр из 20 частей и инвентировать его (т.е.

Const
N = 20;

type
Mas = array [1..N] of longint;

procedure input(var m: Mas);
var
i: longint;
begin
for i := 1 to N do
read(m[i]);
end;

procedure output(m: Mas);
var
j: longint;
begin
for j := N downto 1 do
write(m[j], ' ');
end;

var
m: Mas;
begin
input(m);
output(m);
end.