Первое кругосветное путешествие продолжалось 3 года 20 дней. Когда закончилось это путешествие, если оно началось 18 августа 1519 г.?

Var A,B:real;count:integer;
begin
readln(A,B);
while A<B do
beginA:=A+A/100*15;
count:=count+1;
end;
writeln(count);
end.