program Project3;
{$APPTYPE CONSOLE}
var n:real;t,i:integer;
begin
writeln('Vvedit dovjynu makaronyny');
readln(n);
writeln('Vvedit kilkist dniv');
readln(t);
for i:=1 to t-1 do begin
n:=n-n/(i+1);end;
writeln('Na ',t,' den yomu zalyshytsia ',n:5:2,' kilometriv');
readln;
end.