Чтобы гарантировать отсутствие ошибок от действий с вещественными числами, будем работать исключительно с целыми. Нам необходимо последовательно вычислять степени числа `5` и остановиться, когда мы получим степень, которая больше или равна введённому числу. Далее останется только сравнить на точное равенство. Приведём код программы.

var n,m:integer;

begin

readln(n);

 m := 1;

while (m < n) do m := m*5;

if m = n

then writeln('yes')

else writeln('no');

end.