Составить программу , вычисляющую сумму квадратов n чётных натуральных чисел ( сейчас циклические алгоритмы, нужна и блок-схема)

Var n,a,i:integer;
s:longint;
begin
writeln('введите количество чисел');
readln(n);
a:=0; s:=0;
writeln('введите числа');
for i:=1 to n do begin
readln(a);
if a>10 then s:=s+a*a;
end;
if s=0 then writeln('положительных чисел нет') else writeln(s);
end.