Viết chương trình tính các tổng sau S=1+3+5+-+(2n+1)

Program tinh_tong;

Uses crt;

Var S,i,n: integer;

Begin

Write (‘Nhap n=’); 

Readln (n);

S:=1;

For i:= 1 to n do 

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

Writeln (‘Tong S la:’, S);

Readln

End.