Bonsoir;
J'aimerais exécuter ce programme en Turbo Pascal. Bien que sa syntaxe semble correcte, une erreur s'affiche lors de sa compilation. Je ne sais pas laquelle. Le programme est le suivant:
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
program valeur_absolue;
uses
  WinCrt;
  var X,A: integer;
  begin
    Writeln('Donner un nombre entier');
    Readln(X);
 
    if(X>0) then
        A:=X;
    else
        A:=-X;
 
    Writeln('La valeur absolue de ',X,' est: ',A);
  end.
Merci de m'avoir aidé.