procedure_withoutParam

program cetak;
uses crt;

procedure cetakkarakter;
begin
    write('*');
end;

begin
    clrscr;
    cetakkarakter;
    write(' - ');
    cetakkarakter;
    readln;
end.