¿Cuantas veces desea repetir lógica? (Descendente)

Program logicander;


Uses WinCrt;
Var
    i, n : integer;
Begin


WriteLn ( '¿Cuantas veces desea repetir logica?' );
ReadLn (n);


For i:= n downto 1 do


WriteLn ( 'La Curse', i)


end.