--Primeste pe intrare un numar si intr-o variabila de iesire furnizeaza dublul acestuia
set serveroutput on;
declare
    in_nr number(4):=10;
    out_nr number(4);
procedure double(original in number, new_nr out number) as
    begin
        new_nr :=2*original;
    end;
begin
   dbms_output.put_line('nr_in: '||in_nr);
    double (in_nr,out_nr);
    dbms_output.put_line('out_nr:'||out_nr);
end;


--Afisarea mediei aritmetice dintre salariul mediu pt toti angajatii si salariul mediul pentru angajatii 'SALESMAN'
set serveroutput on;
declare
    new_sal number(7,2);
    emp_id number(4):=7499;
Procedure adjust_salary(emp_id number, sal in out number) is
    emp_job varchar2(9);
    avg_sal number(7,2);
begin
    select job into emp_job from emp where empno=emp_id;
    select avg(sal) into avg_sal from emp where job=emp_job;
    dbms_output.put_line('Salariul mediu pentru ' ||emp_job||' angajați: '||to_char(avg_sal));
    sal:=(sal+avg_sal)/2;
    end;
begin
    select avg(sal) into new_sal from emp;
    dbms_output.put_line('Salariul mediu pentru toți angajații:' || to_char(new_sal));
    adjust_salary(emp_id,new_sal);
    dbms_output.put_line('Salariul mediu:'||to_char(new_sal));
end;