Дан одномерный масив, найти сумму квадратов всех элементов массива и число нечётных чисел. Пожалуйста дайте полный ответ. Со всеми program, randomize и т.д.

я хочу нормальный ответ

234567891011121314151617181920212223const nmax = 20;var A : array [1..nmax] of integer; i, n : integer; sum : real;begin randomize; write('Размерность массива (не более ', nmax, '): '); readln(n); Writeln('Исходный массив: '); for i := 1 to n do begin a[i] := random(30) - 15; write(A[i], ' '); end; writeln; sum := 0; for i := 1 to n do sum := sum + a[i]*a[i]; writeln('Ответ: ', sum:0:0); readln;end. ЦИФРЫ СЛЕВА ТОЛЬКО РАССТАВЬ

как?

Програм 1 + програм 2 = d 1 + d2 деленная на 2