信息实时发部,控制台信息

var
  i,j:Integer;
begin
  i:=0;
  while i<10 do
  begin
    Writeln(format('AAAAAAA%d',[i]));
    Flush(OUTPUT);
  //  for j:=0 to 1000000000 do ;
    sleep(500);
    Inc(i);
    end;
end