Tính tổng

Tính tổng dãy: S = 1+3+5+...+(2n+1). Chương trình có thể tính với n lớn nhất là bao nhiêu khi lưu tổng S vào biến có kiểu nguyên. Nêu cách kiểm tra điều đó.
                                                                 GiảiUses crt;
 Var
    n: integer;
 BEGIN
      clrscr;
      writeln('nhap so nguyen n muon tinh tong n so le dau tien: ');
      readln(n);
      writeln(' Tong cua ',n,' so le dau tien la: ',sqr(n));
      writeln(' Neu S la bien kieu nguyen thi gia tri lon nhap n co the nhan la: ', trunc(sqrt(32767)));
      readln;
 END.