SQL> create or replace procedure p1
  2  as
  3  begin
  4  dbms_output.put_line('web based application');
  5  end;

Procedure created.

SQL> exec p1;
web based application                                                           

PL/SQL procedure successfully completed.


SQL> declare
  2  i number;
  3  j number;
  4  k number;
  5  procedure fmin(i in number,j in number,k out number)
  6  is
  7  begin
  8  if i<j then
  9  k:=i;
 10  else
 11  k:=j;
 12  end if;
 13  end;
 14  begin
 15  i:=32;
 16  j:=94;
 17  fmin(i,j,k);
 18  dbms_output.put_line('minimum value is : '||k);
 19  end;

minimum value is : 32                                                           
PL/SQL procedure successfully completed.