Código Delphi [-] Var n:Integer; begin For n:=1 to 1000000 do begin ShowMessage('Jaaaaaaaaaaaaaaa....'); end; end;
Var n:Integer; begin For n:=1 to 1000000 do begin ShowMessage('Jaaaaaaaaaaaaaaa....'); end; end;