Задаются два массива A(14) и B(14). Получить третий массив, перемножив элементы первого на элементы второго, взятые в обратном порядке. Все массивы вывести на экран. Напишите пожалуйста программу в Free Pascal.

const n=14; var   a,b,c: array[1..n] of integer;   i: byte; begin   randomize;   for i:=1 to n do begin;     a[i]:=random(-10,10);      b[i]:=random(-10,10);   end;      println (a);   writeln;   println (b);   writeln;   for i:=1 to n do begin;     c[i]:=a[i]*b[n+1-i];    end;     println (c); end. --------------------------------- Пример: 9 10 -10 6 3 -4 -3 6 4 -9 6 -9 2 -10 -3 -10 9 -4 8 -9 -6 -1 -9 6 6 -10 0 -9 -81 0 100 36 18 36 3 -36 -36 -72 -24 -81 -20 30