В одномерном массиве из N натуральных чисел вычислить сумму квадратов всех нечетных чисел

var a: array[1..100] of integer;

n, i, sum: integer;

begin

writeln(\'Введите длину массива\');

readln(n);

writeln(\'Заполните массив с клавиатуры\');

for i := 1 to n do readln(a[i]);

for i := 1 to n do if a[i] mod 2 > 0 then sum := sum + a[i] * a[i];

writeln(\'Сумма квадратов нечётных чисел равна \', sum);

end.