Дано целое число А. Вывести на экран все ступени числа 5,

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