Procedures stockés

bonjour ,j'essai d'executé cette procedure , j'ai des erreurs a la compilation je comprend pas pourquoi :/
create or replace Procedure proc1

as
var number;

begin
Select count(*) into var

From session_programme

Where etat_session = `annulee' ;

end;
call proc1 ;