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

program prog1;
var
n,null:integer;
begin
null:=1;
write('Введите число:');
readln(n);
while n>=null do
begin
null:=null+1;
write('-');
end;
readln;
end.