Объяснение:
var i : integer;
arr: array [1..7] of integer;
begin
for i := 1 to 7 do begin
write(i, ' = '); readln(arr[i]);
end;
for i := 7 downto 1 do write(arr[i], ', ');
end.
