Дано натуральное число. Найти сумму его четных делителейPascal

program zz1;

var n, i, s:integer; / / вводим переменную целого типа

begin

write (' введите число '); / / вводим с клавиатуры число

read (n);

s:=0; / / задаем начальное значение для суммы

for i:=1 to n do / / организуем цикл, в котором переберем все числа

begin

if n mod i = 0 then if i mod 2 = 0 then s:=s + i; / / проверяем на делимость, если делится, то проверяем делитель на четность, если четный то прибавляем его к сумме

end;

write (' сумма четных делителей числа ', n, ' = ', s); / / выводим ответ

end.