Pola bilangan 1, 5, 25, 125, 625,31 25, by : turbo pascal

uses wincrt ;
var
i:integer;
Begin
i:= 1;
while i<3126 do
Begin
writeln(i);
i:=i*5;
end;end.