В одномерном массиве из 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.