III/13

var
n ,i:integer;
b:real;
begin
b:= 1.0;
ReadLN(n);
writeLN('1 элемент', b);
for i := 2 to n do
begin
    b:=1.0/4*(3*b+1/(3*b));
    writeLN(i,' элемент', b);
end;
end.