La calculatrice, Pascal

Language: Layout:

//fpc 3.0.0

program HelloWorld;
var number1: integer;
var number2: integer;
var answer: integer;
var option: string;

begin
    writeln('Bienvenue dans la calculatrice!');
    writeln('Choisis un option:');
    writeln('1. Addition');
    writeln('2. Soustraction');
    writeln('3. Multiplication');
    writeln('4. Division');
    writeln('5. Sortir');
    readln (option);
    if (option = '1') then
    begin
        writeln('Quel est ton premier nombre?');
        readln(number1);
        writeln('Quel est ton deuxième nombre?');
        readln(number2);
        answer := number1 + number2;
        writeln('Le résultat vaut ',answer,'!');
    end
    else
        if (option = '2') then
        begin
             writeln('Quel est ton premier nombre?');
             readln(number1);
             writeln('Quel est ton deuxième nombre?');
             readln(number2);
             answer := number1 - number2;
             writeln('Le résultat vaut ',answer,'!');
        end
    else
       if (option = '3') then
        begin
             writeln('Quel est ton premier nombre?');
             readln(number1);
             writeln('Quel est ton deuxième nombre?');
             readln(number2);
             answer := number1 * number2;
             writeln('Le résultat vaut ',answer,'!');
        end     
     else
       if (option = '4') then
        begin
             writeln('Quel est ton premier nombre?');
             readln(number1);
             writeln('Quel est ton deuxième nombre?');
             readln(number2);
             answer := number1 div number2;
             writeln('Le résultat vaut ',answer,'!');
        end     
     else
       if (option = '5') then
        begin
            exit;
        end    
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.13 sec, absolute running time: 0.08 sec, cpu time: 0.01 sec, memory peak: 3 Mb, absolute service time: 0,39 sec