ПОЖАЛУЙСТАААА плиз помогите с инфой ((

var n, s: integer;
begin
n := 0;
s := 512;
while s >=0 do begin
s := s -20;
n := n + 1
end;
write(n)
end

Задача: Начальный вклад в банке равен 1000 рублей. Через каждый месяц размер вклада увеличивается на 5%. Через сколько месяцев размер вклада превысит 1100 рублей?

должна принести домой ровно 3 литра воды",-сказала она бедной девушке.Как должна действовать падчерица, чтобы выполнить это поручение?

Плиз помогите заранние спасибо!!!