Дано целое число А. Вывести на экран все степени числа 5, которые не превышают А. (Программа Pascal ABC)

var A, n: integer;x: real;begin read(A); n := 0; for n := 1 to A do begin x := power(5, n); if x <= A then writeln(n); end;end.