function[truefalse]=estellebissextile(n)
  r=reste(n,4);
  s=reste(n,100);
  t=reste(n,400);
  truefalse=%f;
  if (((r==0)&(s>0))|(t==0)) then
      truefalse=%t;
  end;
endfunction;
function[truefalse]=nestellepasbissextile(n)// fonction identique à la précédente.
  r=reste(n,4);
  s=reste(n,100);
  t=reste(n,400);
  truefalse=%t;
  if ((r>0)|((s==0)&(t>0))) then
    truefalse=%f;
  end;
endfunction;
// Utilisation de ces fonctions.
n=input('n=');// millésime de l'année.
truefalse1=estellebissextile(n);
  if truefalse1==%t then
      afficher('L''année est bissextile');
  else
      afficher('L''année n''est pas bissextile');
  end;
truefalse2=nestellepasbissextile(n);
  if truefalse2==%t then
      afficher('L''année est bissextile');
  else
      afficher('L''année n''est pas bissextile');
  end;