Напишите програму для паскаля таким образом чтобы она складывала 7 квадратичных чисел с 1 и нечетные по возрастанию ( 1 3 5 ...)

Предыдущий
вопрос Следующий
вопрос

program SumOfOddSquares;

var
i, sum, oddNumber: integer;

begin
sum := 0;
oddNumber := 1;

for i := 1 to 7 do
begin
sum := sum + oddNumber * oddNumber;
oddNumber := oddNumber + 2;
end;

writeln('Сумма 7 квадратичных нечетных чисел с 1: ', sum);
end.