var
a,i,res: integer;
begin
writeln('Введите число');
readln(a);
for i:=1 to a do
if i mod 2=0 then
if a mod i=0 then res:=res+i;
end;
writeln(res);
end.
Объяснение:
