Паскаль: две задачи (сумма и нахождение натурального числа из заданных)

[sane4ek]

1) Найти натуральное число от 1 до 10000 с максимальной суммой делителей.

2) вычислить

Помогите пожалуйста и желательно с описанием (возможна даже символическая оплата10 WMR за каждую хорошо описанную и работающую задачу)

[Qiker]

№1


program summa_mnozh;





type str60=string[60];



var n,max,nmax,sum:integer; s:str60;



function IntToStr(i: integer): string;

{ Convert any Integer type to a string }

var

s: string[8];

begin

Str(i, s);

IntToStr := s;

end;



procedure f(n: integer; k:integer; var s: str60; var sum: integer);

var i:byte;

begin

sum:=0; s:=IntToStr(n) +'= 1*';

while n>1 do

begin

if (n mod k = 0) then

begin

s:=s+ IntToStr(k)+'*';

n:= n div k;

sum:=sum+k;

end

else k:=k+1;

end;



delete(s,length(s),1);

end;



begin



max:=1; nmax:=1;

for n:=10000 downto 9900 do { downto 1 do}

begin



f(n,2,s,sum);

if max<sum then

begin

max:=sum; nmax:=n; writeln(s, ' sum = ',sum);

end;

end;



readln;

end.

[sane4ek]

я извеняюсь, а можно ещё описание всех этих терминомв? пожалуйста

[Qiker]

http://pascalstudy.narod.ru/tems/pas_7.html
sane4ek, по ссылке пройдите, там вся структура программа на паскале подробно