помогите решить задачки в Turbo Pascal, проболел пол семестра

Question

1)сумма и количество делителей натурального числа 
2)определить максимальный эл-т одномерного массива 
3)определить максимальный эл-т однамерного массива 
4)вв и выв однамерного и двумерного массисов

Владимир Краюшкин · Accepted Answer

program del; 
var i,n,f,j,s,k: integer; 
begin 
s:=0; k:=0; 
repeat 
write('input the number N='); 
readln(n); 
until n>0; 
f:=0; j:=n; 
for i:=2 to n div 2 do 
if j mod i =0 then begin f:=1; 
while j mod i=0 do 
begin write('*',i); k:=k+1; s:=s+i; 
j:=j div i; end; end; 
if f=0 then writeln('*',n) else writeln; 
writeln('kol-vo=',k,' summa=',s); end.