program SumOfEvenSquares;

var
arr: array[1..10] of Integer;
i, sum: Integer;

begin
sum := 0;

// Заполняем массив произвольными числами
for i := 1 to 10 do
begin
arr[i] := Random(10); // Генерируем случайное число от 0 до 9
end;

// Выводим исходный массив на экран
Writeln('Исходный массив:');
for i := 1 to 10 do
begin
Write(arr[i], ' ');
end;

// Находим сумму квадратов чётных элементов
for i := 1 to 10 do
begin
if (arr[i] mod 2 = 0) then // Проверяем, является ли элемент чётным
begin
sum := sum + arr[i] * arr[i]; // Считаем сумму квадратов чётных элементов
end;
end;

// Выводим результат на экран
Writeln;
Writeln('Сумма квадратов чётных элементов: ', sum);

end.