Código Delphi [-]PROCEDURE Felicitaciones (Foreros: TStringList); VAR Cnt: INTEGER; BEGIN FOR Cnt := 0 TO Foreros.Count - 1 DO WriteLn (Foreros[Cnt] + ' te dice: ¡Felicidades, Kipow!'); END;
PROCEDURE Felicitaciones (Foreros: TStringList); VAR Cnt: INTEGER; BEGIN FOR Cnt := 0 TO Foreros.Count - 1 DO WriteLn (Foreros[Cnt] + ' te dice: ¡Felicidades, Kipow!'); END;