Ошибка: invalid floating point operation

[Willow]

есть задача
Задано целое A>1. Найдите наименьшее целое неотрицательное k, при котором 5^k>A.
вот так попыталась его решить

uses crt;
var z,b,a,min:integer;
begin
clrscr;
WRITE('vvedite chislo A>1 ');
readln(a);
if a<1 then begin
write('vvedeno chislo menshe 1, vvedite chislo bolshe 1 ');
readln(a);
b:=round(ln(a)/ln(5));end;
if exp(ln(b)*5)>a then begin
z:=b; end;
z:=b+1;
write('min= ',z);
readln;
end.

В итоге копилится, запукаю. Чило вводится, но после чего выскакивает ошибка invalid floating point operation
Подскажите из-за чего такое сообщение, где я напортачила?

[mihali4]

Эта ошибка означает только одно - деление на ноль...
Кстати:
У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Willow]

исправилась по оформлению
только я не вижу где оно тут делит на ноль

[DomiNick]

только я не вижу где оно тут делит на ноль

Ну например нельзя считать ln(0)...
У вас написано, что нужно "целое A>1", а проверяется чтоб было "A>=1"...
И получается что b=0 и ln(b) - ошибка...

Да и вообще проверка на ввод непредусмотрительная - а если второй раз тоже неправильное число введут?

Begin
ClrScr;
Write('‚ўҐ¤ЁвҐ зЁб«® "*" (楫®Ґ, Ў®«миҐ Ґ¤Ё*Ёжл):  ');
ReadLn(a);
While a<=1 Do
        Begin
        Write('ЌҐўҐа*л© ўў®¤. ‚ўҐ¤ЁвҐ 楫®Ґ зЁб«® Ў®«миҐ Ґ¤Ё*Ёжл:  ');
        ReadLn(a);
        End;

А обязательно именно таким странным способом делать? =\\