program task4;
var
x: array[1..10] of integer;
sum1, sum2, i: integer;
y: real;

begin
writeln('Введите 10 цифр: ');
for i:= 0 to 9 do
    readln(x[i]);

sum1:= 0;
for i:= 0 to 9 do
    sum1:= sum1 + x[i];

sum2:= 0;
for i:= 0 to 9 do
    sum2:= sum2 + x[i] - 2;

for i:= 0 to 9 do
    y:= x[i]/sum1 - x[1]/sum2;
writeln('y = ', y);

end.