var dau: byte; i,n: longint; t,mau:real;
begin
write('Nhap n de tinh pi.');
write('So cang lon thi so pi cang chinh xac.');
readln(n);
{Su dung vong lap thoa dieu kien}
while ((i<1) or (i>1000000)) {10^6=1000000} do
begin
write('Nhap lai so n vi vuot qua pham vi cho phep: ');
readln(n);
end;
dau:=1;
for i:=0 to n do
begin
mau:=((2*i)+1)*dau;
t:=t+1/mau;
dau:=dau*(-1);
end;
write('Ket qua: So pi bang: ',t*4,'.');
readln;
end.
{Bạn nhớ chửa lỗi câu lệnh nếu có nhé!}
{Chuc ban hoc tot!}
