Repita hola ingresando n descendiendo

Program Repita_para_hola;
Uses WinCrt;
Var i,n:integer;
Begin


Writeln ('Cuantas repeticiones para Hola');
Writeln ('');
Writeln ('');
Writeln ('');
Writeln ('Ingrese n');
Readln (n);
For i:= n downto 1 do
Writeln ('Hola', i);
End.