Напишите программу, которая строит "линию" из знаков '-' заданной длины. Используйте процедуру - Pascal ABC

Напишите программу, которая строит "линию" из знаков '-' заданной длины. Используйте процедуру.

Входные данные

Входная строка содержит единственное натуральное число – длину линии N .

Выходные данные

Программа должна вывести N знаков '-'.

Примеры

входные данные

выходные данные

-----

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

procedure line(n:integer);
var i:integer;
begin
for i:=1 to n do write('-');
end;
var n:integer;
begin
write('n=');
readln(n);
line(n)
end.

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

Создается процедура line, которая принимает один аргумент n типа integer.
Создается переменная i типа integer, которая будет использоваться в цикле.
Запускается цикл for, который выполняется n раз (размер линии), где n - значение переменной i.
Внутри цикла выводится знак '-'.
После завершения цикла выводится символ новой строки.
Запрашивается значение переменной n с помощью функции readln.
Вызывается процедура line с передачей значения переменной n в качестве аргумента.