Bài 1:
Var P,n, i: longint;
Begin
Write('Nhap n:'); readln(n);
P:=0;
For i:=1 to n do P:= P+ (2*i-1);
Write('P:', P);
Readln
End.
Bài 2:
Var A,i,n: longint;
Begin
Write('Nhap n:'); readln(n);
A:=0;
For i:=1 to n do A:= A+ 2*i;
Write('A:', A);
Readln
End.