program CalculateRunningDay;

var
X, Y: real;
day: integer;
distance: real;

begin
writeln('Enter the distance in kilometers on the first day (X): ');
readln(X);

writeln('Enter the desired distance in kilometers (Y): ');
readln(Y);

day := 1;
distance := X;

while distance < Y do
begin
distance := distance + distance * 0.15;
day := day + 1;
end;

writeln('The sportsman will reach the distance of ', Y:0:2, ' kilometers on day ', day);

end.