Задать переменную N - 6 раз - Free Pascal

Формулировка задачи:

Как сделать так, чтобы значение N нужно было вводить 6 раз? Вот код)

Program A13_5;
uses crt;
function RootK(x,k,n:real):real;
begin
if n=0 then RootK:=1
else RootK:=RootK(x,k,n-1)-(RootK(x,k,n-1)-x/exp(ln(RootK(x,k,n-1))*(k-1)))/k;
end;
var x:real;
    k,n:integer;
begin
repeat
write('x>0 x=');
readln(x);
until x>0;
repeat
write('k>1 k=');
readln(k);
until k>1;
repeat
write('n>0 n=');
readln(n);
until n>0;
write('Корень=',RootK(x,k,n));
end.

Решение задачи: «Задать переменную N - 6 раз»

Листинг программы

for i:=1 to 6 do
 begin
  repeat
  write('n>0 n=');
  readln(n);
  until n>0;
  writeln('Корень=',RootK(x,k,n));
 end;

Объяснение кода листинга программы

В данном коде выполняется следующая последовательность действий:

Объявляется цикл for, который будет выполняться 6 раз.
Внутри цикла выполняется ещё один цикл repeat-until, который будет выполняться до тех пор, пока значение переменной n не станет больше 0.
В каждой итерации внутреннего цикла происходит вывод сообщения n>0 n= и запрос на ввод значения переменной n.
После завершения внутреннего цикла выводится значение переменной RootK(x,k,n).
После завершения внешнего цикла выводится сообщение Корень=.
Цикл завершается.