в этом месяце спортсмен пробегает на каждой тренировке дистанцию в М км. Известно что каждый месяц длинна дистанции возрастает на 5 %.

 написать программу которая вычесляет сколько месяцев назад длинна пробегаемой за тренеровку дистанции составляла У км. если входные данные некоретны - вывести сообщение "NO"

ВВОД 

М У - длины дистанций сейчас и некоторое время назад.

ВЫВОД

число-сколько месяцев назад дистанция была У км.

ПРИМЕР

ввод                                                      вывод

4.630500          4.000000                           3 

Program n1;Uses CRT;Var k: integer; m,y:real;beginReadln(m,y);If m<y then writeln('NO') else if m=y then writeln('1') else While m>y do begin m:=m/105*100; k:=k+1; end;writeln(k);readlnend.