Чтобы гарантировать отсутствие ошибок от действий с вещественными числами, будем работать исключительно с целыми. Нам необходимо последовательно вычислять степени числа `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.
