pascal 输出保留12位小数的浮点数(纠错)

var
	{x:double;}
	x:Extended;
begin
	x:=3.1415926535798932;
	writeln(x:0:20);
	writeln(x:0:12);
end.