switch a comme paramètre une expression.
Selon la valeur de cette expression, marquée par case (ou par 
default), switch 
permet de faire le bloc d’instructions correspondant à la valeur d’une 
expression qui doit être une valeur entière.
On tape :
opere(a,b,c):={
switch(c) {
  case 1 : {a:=a+b;break;} 
  case 2 : {a:=a-b;break;} 
  case 3 : {a:=a*b;break;} 
  default : {a:=a^b;}
}
return a;
}
puis :
On obtient :
On tape :
On obtient :