Código Delphi [-] for i := 1 to 10 do ShowMessage('Gracias');
for i := 1 to 10 do ShowMessage('Gracias');