Ciclos For

CICLOS FOR

Ciclo Para (For ... To ... Do)

                  (For ... DownTo ... Do)

CÓDIGO

program ciclo_for; Uses Crt; Var Numero:Integer; Begin ClrScr; For Numero:=1 To 5 Do Begin Writeln('Vuelta ',Numero); End; For Numero:=5 DownTo 1 Do Begin Writeln('Vuelta ',Numero); End; writeln; writeln('Presiona Enter p/Salir'); Readln; End.