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