For - Pascal Practica

Repite de 1 a 10


PROGRAM Ciclo_FOR; 
VAR Numero : Integer; 
BEGIN 
FOR Numero := 1 to 10 DO 
WriteLn(Numero); 
END.



Repite de 10 a 1


PROGRAM Ciclo_FOR; 
VAR Numero : Integer; 
BEGIN 
FOR Numero := 10 downto 1 DO 
WriteLn(Numero); 
END.