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

Var
    n: integer;

procedure WriteNSymbols(n: integer; c: char);
var
    i: integer;
begin
    for i := 1 to n do
        write(c);
end;

begin
    readln(n);
    WriteNSymbols(n, '-');
end.