procedure DashString(n: integer);
begin
Print('-'*n)
end;
var n := ReadInteger('Введите n:');
DashString(n)
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
procedure DashString(n: integer);
begin
Print('-'*n)
end;
begin
var n := ReadInteger('Введите n:');
DashString(n)
end.