Написать программу, которая вводит массив из N целых чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать: программу на поизвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.

const n = 10;

var a: array [1 ... n] of integer;

i: integer;

begin

for i: = 1 to n do readln (a[i]) ;

writeln ('В прямом порядке: ') ;

for i: = 1 to n do write (a[i],' ') ;

writeln;

writeln ('В обратном порядке: ') ;

for i: = n downto 1 do write (a[i], ' ') ;

end.