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

program power_;var a,i:integer;begini:=0;write(\'Enter a \'); readln (a); //Ввод числа while power(5,i)<a do // выполнять, пока 5 в степени i меньше  a   begin   writeln (5,\'^\',i,\'=\',power(5,i)); //Вывести 5 в степени i   i:=i+1; // увеличить значение степени i на единицу  end;end.