Помогите составить программу, вычисляющую сумму квадратов 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.