условие для задачи про лягушку - длина прыжка должна быть больше половины расстояния до болота, тогда цикл не становится бесконечным.
Вот полностью рабочий вариант:
Код:
program kwaken;
var dlin, s: real;
n:integer;
begin
writeln('Input length');
readln(dlin);
writeln('Input distance');
readln(s);
n:=0;
if dlin<=s/2 then writeln('Never')
else begin
while s>0 do begin
s:=s-dlin;
dlin:=dlin/2;
inc(n);
end;
writeln('Quantity of jumps to a bog',n); end;
readln
end.