Помогите с программированием на языке Паскаль

[alexe196]

Помогите с программированием на языке Паскаль

нужно составить программу, в которой используется процедура с параметрами, которая выводит строку из одинаковых символов длинна строки и символ задаются с клавиатуры.


что прога лёгкая знаю но процедуры в паскале благополучно проболел(
по этому не смейтесь а помогисе пожалуйста.

 

[alexe196]

заранее извиняюсь за ошибки

 

[Vladimir_S]

Да пожалуйста, тоже мне...

Var
 Ch:Char;
 Lng:Byte;

Procedure Str_out(C:char; L:Byte);
Var
 S:String;
 i:Byte;
begin
 S:='';
 for i:=1 to L do S:=S+C;
 writeln(S);
end;

Begin
 Write('Symbol: ');
 Readln(Ch);
 Write('Length: ');
 Readln(Lng);
 Str_out(Ch,Lng);
 Readln
End.

 

[alexe196]

спасибо большое)