program Hello;
var i : Integer;
sum:real;
begin
i := 5;
sum := 7 / i;
while sum < 18 do
i := i * 2;
sum := sum + 7 / i;
end;
writeln(sum);
writeln(i);
end.
