var s,k,i: integer;
begin
write('Введите нечетное число: ');
readln(k);
s:=0;
i:=3;
while (i<=k) do
s:=s+i*i;
i:=i+2;
end;
writeln('Сумма ряда при k=',k,' равна ',s);
end.
var s,k,i: integer;
begin
write('Введите нечетное число: ');
readln(k);
s:=0;
i:=3;
while (i<=k) do
begin
s:=s+i*i;
i:=i+2;
end;
writeln('Сумма ряда при k=',k,' равна ',s);
end.