Program VR;
Var sum,i,n: integer;
Begin
writeln('Vvei n');
readln(n);
for i:=1 to n do
sum:=sum+(2*i-1);
writeln('Summa- ',sum);
End.
Program VR;
Var sum,i,n: integer;
Begin
writeln('Vvei n');
readln(n);
for i:=1 to n do
sum:=sum+(2*i-1);
writeln('Summa- ',sum);
End.