Смотри во вложении
---------------------------------------------------
Это смешные картинки, комиксы, приколы и т. п.
Дважды кликнуть ПКМ (Правой Кнопкой Мыши) по иконки Paint.
Var n,k,sum,i:integer;
begin
readln (n);
if (n<10)and(n>-10) then
for i:=1 to 10 do begin
if n mod i=0 then
sum:=sum+i;
k:=k+1;
end;
writeln(sum, ' ', k);
end.