Uses crt;//Модуль, позволяющий запускать программу в окне
const n=10;// Размерность
var
k:real;
i:integer;
a: array [1..n] of integer;//Описание массива
begin
for i:=1 to n do //Заполнение массива
begin
writeln('a[',i,']='); readln(a[i]);
end;
k:=a[1]*a[2]*a[3]*a[n]*a[n-1]*a[n-2]; // операция
writeln('K=',k);// Вывод результата
end.