1. В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег
на 15% от предыдущего значения. По данному числу y определите номер дня, на который пробег
спортсмена составит не менее y километров.
Программа получает на вход действительные числа x и y и должна вывести одно натуральное
число. (цикл while)
begin
var (x, y) := ReadReal2;
var z := 1;
while x < y do
begin
x := x * 1.5;
z += 1;
end;
Print(z);
end.