Ряд Виета. вывод числа Pi.

var
 fix, awful:Real;
 a, n:Int64;
Begin
readln(a);
fix:=2;
awful:=0;
for n:= 1 to a do
 begin
 awful:=sqrt(2+awful);
 fix:=fix*(2/awful);
 writeln(fix);
 end;
end.