Bonjour !

Je débute en Pascal, et je me suis lancé dans l'écriture de Pasculatrice (notez la finesse du jeu de mots), une calculatrice traitant les 5 opérations.
Pourriez-vous m'aider à rendre ce code correct s'il vous plaît ? M'expliquer mes erreurs.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
program calculator (output);
var op1 : integer; {On définit les variables. op1=opération, nbr1=premier nombre à opérer, nbr2: 2e nombre à opérer}
    nbr1: real;
    nbr2: real;
 
begin
 
writeln ('Bonjour. Bienvenue dans Pasculatrice ALPHA par Bam. Veuillez choisir une opération');
        writeln ('Multiplication, tapez 1.');
        writeln ('Division tombant juste, tapez 2');
        writeln ('Division donnant un nombre à virgule, tapez 3');
        writeln ('Modulo, tapez 4');
        writeln ('Addition, tapez 5');
        writeln ('Soustraction, tapez 6');  {On dit à l'user les opérations disponibles}
        writeln ('Appuyez sur ENTREE pour confirmer');
readln (op1); {On demande à remplir la variable de l'opération. Jusque là rien de compliqué}
 
end.
 
if op1=1 {si l'user tape 1}
   then {On lui demande de choisir les deux nombres à multiplier}
begin
 
     writeln ('Choisissez le premier réel à multiplier');
        readln (nbr1);
     writeln ('Choisissez le deuxième réel à multiplier');
        readln (nbr2);
     writeln (' ',nbr1,'*',nbr2,'=');         {On effectue l'opération}
 
end.
 
if op1=2 {si l'user tape 2}
   then
begin
 
writeln ('Choisissez le premier réel à diviser');
        readln (nbr1);
writeln ('Choisissez le deuxième réel à diviser');
        readln (nbr2);
write (' ',nbr1,'div',nbr2,'=');         {On effectue l'opération}
 
end.
 
if op1=3 {si l'user tape 3}
   then
begin
 
writeln ('Choisissez le premier réel à diviser');
        readln (nbr1);
writeln ('Choisissez le deuxième réel à diviser');
        readln (nbr2);
write (' ',nbr1,'/',nbr2,'=');         {On effectue l'opération}
 
end.
 
if op1=4 {si l'user tape 4}
   then
begin
 
writeln ('Choisissez le premier réel pour le modulo');
        readln (nbr1);
writeln ('Choisissez le deuxième réel pour le modulo');
        readln (nbr2);
write (' ',nbr1,'mod',nbr2,'=');         {On effectue l'opération}
 
end.
 
if op1=5 {si l'user tape 5}
   then
begin
 
writeln ('Choisissez le premier réel pour l''addition');
        readln (nbr1);
writeln ('Choisissez le deuxième réel pour l''addition');
        readln (nbr2);
write (' ',nbr1,'+',nbr2,'=');         {On effectue l'opération}
 
end.
 
if op1=6 {si l'user tape 6}
   then
begin
 
writeln ('Choisissez le premier réel pour la soustraction');
        readln (nbr1);
writeln ('Choisissez le deuxième réel pour la soustraction');
        readln (nbr2);
write (' ',nbr1,'-',nbr2,'=');         {On effectue l'opération}
 
end.
 
{Faut que je trouve une formule pour qu'une fois ENTREE pressé, on retourne au début}
Merci d'avance.

Cordialement,

Bam'