Bài minh bị sai chỗ nào vậy ạ?

Free Pascal IDE File Edit Search Run Compile Debug Tools Options Window Help - uses crt; var i,n:integer; A:real; begin clrscr; write('Nhap so n: '); readln(n); while i<-n do begin A:-A+1/(i*(1+2)); i:=i+1; end; writeln('Tong A= ',A:2:3); readin end. 8:1 Legendary.pas Information Progr ...