3. дано натуральное число. найти сумму его четных делителей и количество этих делителей.

//Pascal ABC.NET v3.1 сборка 1172

Var
 n,s,k,i:integer;
begin
 readln(n);
 for i:=1 to n do
  if (n mod i=0) and (i mod 2=0) then
   begin
    inc(k);
    s:=s+i;
   end;
  writeln('s=',s);
  write('k=',k);
end.
 
Пример ввода:
22
Пример вывода:
s=24
k=2