program CALCULATORES2000;

var
  choice : byte;
  number1 : integer;
  number2 : integer;
  result : double;

begin
   writeln('Bienvenue dans CALCULATORES2000');
   writeln('Voici les options : ');
   writeln('1. addition (+)');
   writeln('2. soustraction (-)');
   writeln('3. multiplication (x)');
   writeln('4. division (/)');
   writeln('5. quitter (exit)');
   readln (choice);
   if choice = 5 then
   begin
    writeln('Vous quittez CALCULATORES2000');
    readln;
    exit
   end;
   if choice > 5 then
   begin
    writeln('Résultat indisponible');
    readln;
    writeln('Donne un premier nombre !');
    readln (number1);
    writeln('Donne un deuxieme nombre !');
    readln(number2);
   end;

  if choice = 1 then
  begin
    result := number1 + number2;
    Writeln('Ton résultat est : ',result:6:2);
    readln;
   end;
   if choice = 2 then
   begin
    result := number1 - number2;
    Writeln('Ton résultat est : ',result:6:2);
    readln;
  end;
  if choice = 3 then
  begin
    result := number1 * number2;
    writeln('Ton résultat est : ',result:6:2);
    readln;
  end;
  if choice = 4 then
  begin
    result := number1 / number2;
    writeln('Ton résultat est : ',result:6:2);
    readln;
  end;

end.