Напишите процедуру в Паскале, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов

procedure LinePrn( N: integer);var i: integer;begin for i:=1 to N do write(\'–\');end;В процедуре один параметр \"N\", он передает, какое количество символов нужно вывести на экране в линию.В цикле переменная \"i\" отсчитывает значения от \"1\" до значения параметра процедуры \"N\" и при каждом отсчете на экране печатается символ \'–\', рисуя таким образом линию.