module r123;
exports
procedure r1(i:integer);
procedure r2(var i:integer);
procedure r3(s:string[31]);
private
procedure r1(i:integer);
begin ; end.
procedure r2(var i:integer);
begin ; end.
procedure r3(s:string);
begin ; end.