Em hãy viết chương trình tính giá trị biểu thức A=1+3+5+7+…+2n+1 (Áp dụng câu lệnh lặp chưa biết số lần lặp)

program chuabietsolanlap;

uses crt;

var n,i,t:integer;

begin

clrscr;

write(‘nhap n: ‘);   readln(n);

i:=0;  t:=0;

while i<n do

 begin

  t:=t+(2*i+1);

  i:=i+1;

 end;

write(‘Tong la: ‘,t);

readln

end.