Entrada deberá ser Estructura de control de repetición REPEAT

El ciclo repeat-until es un ciclo de 1 a n. Para ingresar al ciclo no hay condición por lo tanto las acciones que se encuentran dentro del ciclo se realizarán al menos una vez. Luego de la última acción (en este caso acción3) se evalúa la condición que se encuentra en la parte posterior de la estructura.El ciclo iterará hasta que se verifique la condición ("repeat-until" significa "repetir-hasta").

El ciclo repeat-until repite hasta que se cumpla la condición.

var

n: integer;

i:integer;

begin

write('Ingrese un valor: ');

readln(n);

i:=1;

repeat 9:

writeln(i);

i:=i+1;

until( i>n );

end.