Напишите процедуру в Паскале, которая принимает параметр – натуральное число 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.