program CalcAvgSquares;
var
n, number, sum, count, i: integer;
begin
sum := 0;
count := 0;

writeln('Enter the number of elements in the sequence: ');
readln(n);

for i := 1 to n do
begin
writeln('Enter a number: ');
readln(number);

if number mod 2 = 0 then
begin
sum := sum + number * number;
count := count + 1;
end;

end;

if count > 0 then
writeln('Average of squares of even numbers: ', sum/count:0:2)
else
writeln('No even numbers in the sequence');
end.