Составить программу для построения ряда чисел 0,5,50,55,500,505 и.т.д., ряд должен состоять только из двух чисел — 0 и 5 — Pascal(Паскаль)

var n,x,ed,raz,raz2,k:integer;
begin
 write('n=');
 readln(n);
 x:=0;
 ed:=1;
 raz:=1;
 k:=1;
 while k<=n do begin
  raz2:=raz;
  while (k<=n)and(x div ed<>5) do begin
   write(x,' ');
   inc(k);
   if raz2<>1 then raz2:=raz2 div 10;
   x:=x+5*raz2;
  end;
  write(x,' ');
  raz:=raz*10;
  ed:=ed*10+1;
  x:=5*raz;
  inc(k);
 end;
 writeln;
end.