Question

1+3+5+...+(2n-1) Помогите решить в Pascal

Answer 1

program gt;
var n,i,s:longint;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+2*i-1;
writeln(s);
end.