programme_volume_aire_laterale_pave() :=
{
local long, larg,haut,a, v ;
saisir(long) ;
saisir(larg) ;
saisir(haut) ;
v := long*larg*haut ;
a := long*larg*2+long*haut*2+larg*haut*2;
afficher(v) ;
afficher(a) ;
}