Приветствую всех!
Задача такова: ввести число N, после чего выполнить writeln N-нное количество раз.
Вопрос: как это написать в коде?
program prog;
var n,i:integer;
begin
read(n);
for i:=1 to n do
begin
writeln;
end;
end.
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.