Question

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

Answer 1

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.