Question

9ый класс. Заранее спасибо

Answer 1

procedure DashString(n: integer);

begin

 Print('-'*n)

end;

begin

 var n := ReadInteger('Введите n:');

 DashString(n)

end.