Паскаль. 1) в банк положили вклад n рублей. каждый месяц вклад увеличивается на 1%. определить размер вклада через 5 лет. 2) дано натурального число. найти сумму его делителей, не кратных 3. 3) дано натурального число. найти его максимальную цифру.

1)
uses    crt;
var   m,p,s:real;
 k,n:integer;
begin   clrscr; 
 write('Вклад(N)руб.: ');readln(m); 
 write('Кол-во лет: ');readln(n); 
 write('Процент: ');readln(p); 
 k:=1; 
 s:=m; 
 for k:=1 to n do 
 s:=s+s/100*p; 
 writeln('s=',s); 
 readkey; 
 end.
Не могу понять условия 2) и 3).