Ciclo Repeat Until

Ciclo Repeat Until

 Ciclo Repetir... Hasta (Repeat ... Until)

CÓDIGO

Program Ciclo_Reapeat_Until; Uses Crt; Var Numero:Integer; Begin ClrScr; Numero:=0; Repeat WriteLn(Numero); Numero:=Numero+1; Until Numero=10; WriteLn; WriteLn('Presiona Enter p/Salir'); ReadLn; End.