C клавиатуры ввести натуральные числа k>1,m>1,n>1 и вещественные компоненты трёх векторов A=|a1,a2,…,ak|,B=|b1,b2,…bm|,C=|c1,c2,…cn|.Требует ся вычислить величину Y по формуле: Y=(sum(A)*sum(B)*sum(C))1/3 где функция sum(a) суммирования весов вектора А исчисляется по формуле Sum(A)=∑(i=1 to k) ai — Pascal(Паскаль)

uses
  crt;

type
  tmas = array [1 .. 100] of real;

function sum(Var t: integer; ma: tmas): real;
var
  i: integer;
  s: real;
begin
  s := 0;
  for i := 1 to t do
    s := s + ma[i];
  sum := s;
end;

var
  i, k, m, n: integer;
  a, b, c: tmas;
  y: real;

begin
  clrscr;
  writeln('enter k,m,n');
  readln(k, m, n);
  writeln('enter ', k, ' elementov massiva a');
  for i := 1 to k do
    read(a[i]);
  writeln('enter ', m, ' elementov massiva b');
  for i := 1 to m do
    read(b[i]);
  writeln('enter ', n, ' elementov massiva c');
  for i := 1 to n do
    read(c[i]);
  y := exp(ln(sum(k, a) * sum(m, b) * sum(n, c)) / 3);
  writeln('y=', y:0:2);
  readln

end.