Паскаль.

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).