Ответ: var n,s,i:integer;beginwrite(‘N=’); readln(n);s:=0;for i:=1 to n do s:=s+2*i-1;writeln(‘S=’,s,’  N^2=’,n*n);end.