declare
  day char(2);
begin
        select
           to_char(to_date(:k.day||:k.month||:k.year,'YYYY-MM-DD'),'DD')
        into day from sys.dual;
        select decode(day'1','Sunday',
                             '2','Monday','3','Tuesday',
                             '4','Wednesday', '5','Thursday',
                             '6','Friday','7','Saturday','INNY-NIEZNANY')
        into :k.day_week from sys.dual;
end;