Программа выполняется в паскале! Составьте  программу для решения следующей задачи:Процентная ставка по вкладу – 15% годовых. Первоначальный вклад составил А рублей. Через сколько лет он станет больше В рублей? Значения А и В вводятся с клавиатуры. Помогите плииз.

var A,B:real;count:integer;beginreadln(A,B);while A<B dobeginA:=A+A/100*15;count:=count+1;end;writeln(count);end.