По turbo pascal заполнить massive a: array; [ 1..15 ] of char; символами- буквами латинского алфавита под a до 15 латинскме буквы. распечатать на экран данный массив в обратном порядке.

Program pr;
uses crt;

Var i:integer;
       a:array[1..15] of char;

Begin
Writeln('Введите массив');

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

for i:=15 downto 1
Writeln(a[i]);

readln;
end.