writeln('');, n-нное кол-во раз. Опции

[Alan]

Приветствую всех!

Задача такова: ввести число N, после чего выполнить writeln N-нное количество раз.

Вопрос: как это написать в коде?

[Игорь]

input будет файлом в котором в первой строке указано кол-во подсказок ,далее в n строках пойдут номер направления и кол-во шагов.

program prog;
var
inp:text;
n,a,b,i:integer;
begin
assign(inp,'input.txt');
reset(inp);
readln(inp,n);
writeln('Кол-во подсказок ',n);
for i:=1 to n do
 begin
   readln(inp,a,b);
   write('Номер направления: ',a);
   writeln(' Кол-во шагов: ',b);
  end;
close(inp);
end.

Программа должна работать.