Напишите программу, которая вводит массив из 10 целых чисел и выводит на экран этот же массив в прямом и обратном порядке.

vari:integer;a: array [1..10] of integer;beginwriteln('Введите числа');for i:=1 to 10 doread(a[i]);for i:=1 to 10 dowrite(a[i],' ');writeln(' ');for i:=10 downto 1 dowrite(a[i],' ');end.