CREATE OR REPLACE PROCEDURE empstat AS
  berosszeg EMP.SAL%TYPE := 0;
  sorsz INTEGER := 0;
BEGIN
  FOR egy_dolg IN ( SELECT * FROM EMP )
  LOOP
    berosszeg := berosszeg + egy_dolg.SAL;
    sorsz := sorsz + 1;
  END LOOP;
  berosszeg := berosszeg / sorsz;
  DBMS_OUTPUT.PUT_LINE('Sorok szama: ' || sorsz || ', beratlag: ' || berosszeg);
END empstat;
/

/* 
SET SERVEROUTPUT ON
exec empstat();
*/