create or replace procedure 
setpreis(r integer, p integer, m integer)
as

vpreis produkt.preis%type;

begin

select preis into vpreis
from produkt
where pnr = p;

update rechnung
set pges = pges + vpreis * m
where rnr = r;

end;
/