if value=0 then begin
   writeln('c\'est zéro');
end;