program SumOfOddSquares;
vai, sum, oddNumber: integer;
begisum := 0oddNumber := 1;
for i := 1 to 7 dbegisum := sum + oddNumber * oddNumberoddNumber := oddNumber + 2end;
writeln('Сумма 7 квадратичных нечетных чисел с 1: ', sum)end.
program SumOfOddSquares;
va
i, sum, oddNumber: integer;
begi
sum := 0
oddNumber := 1;
for i := 1 to 7 d
begi
sum := sum + oddNumber * oddNumber
oddNumber := oddNumber + 2
end;
writeln('Сумма 7 квадратичных нечетных чисел с 1: ', sum)
end.