program Vektor;
uses crt;
const
     nn = 10;
type
     mas = array[1..nn] of real;
var
     a, b, c: mas;
     i, k: byte;
     y : real;

function Sum_el(M: mas): real;
var ss: real;
begin
for i := 1 to k do
     ss := ss + M[i];
Sum_el := ss;
end;

begin
clrscr;
writeln('Vvedite K');
readln(k);
writeln('Vvedite vektor A:');
for i := 1 to k do
     readln(a[i]);

writeln('Vvedite vektor B:');
for i := 1 to k do
     readln(b[i]);

writeln('Vvedite vektor C:');
for i := 1 to k do
     readln(c[i]);

Y := 1 / exp( abs(sum_el(a)) + abs(sum_el(b)) + abs(sum_el(c)) );

writeln(y:4:6);

readkey;
end.