найти сумму четных делителей введенного целого числа(Pascal abc.net)

Program n1;var a,sum,i: integer;beginsum:=0;readln(a);for i:=1 to a div 2 do if (a mod i) = 0 then if i mod 2=0 then sum:=sum+i;if a mod 2=0 then sum:=sum+a;writeln(sum);end.