var i,n,s:integer;
begin
readln(n);
for i:=1 to n do
s:=s+(2*i-1);
writeln('S=',s);
end.
Объяснение:
(Не уверина что точно правильно!)
