var A:array[1..15] of integer = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
var B:array[1..10] of integer = (1,2,3,4,5,6,7,8,9,10);
var Y:array[1..15] of real;
var ai_squared,sumB: integer;
begin
for var i:=0 to 15 do
    sumB:=0;
    ai_squared:= A[i]*A[i];
    for var j:=0 to 10 do
        sumB:=sumB+B[j];
    Y[i]:=ai_squared/sumB;
end.