procedure_withParam

program cetak;
uses crt;

procedure cetakkarakter(x:char; y:shortint);
var i: shortint;
begin
    for i:=1 to y do
    begin
        write(x);
    end;
end;

var kar: char; i: shortint;
begin
    clrscr;
    cetakkarakter('#', 5);
    writeln;
    kar := '$';
    i := 10;
    cetakkarakter(kar, i);
    readln;
end.