процедуры(10 класс)

[bonjovi]

Составить программу с исползьзованием процедур с параметром, которые выводят строку, состоящуу из одного символа. Длина и символ - параметры процедур.

[Hacker19_90]

если правильно понял то

procedure OutStr (const len: integer; const ch: char);
var 
    i: integer;
begin
    for i := 1 to len do
        Write (ch);
    Writeln;
end;

[bonjovi]

Спасибо! Только посмотрел на этот вариант и догадался сам!