Maximum de deux nombres

program MAXIMUM_DEUX ;

    var X,Y : real ;

    MAX : real ;

begin

    writeln('Tapez les deux nombres:') ;

    read (X, Y) ;

    if  X > Y {évaluation de la condition}

    then

        MAX := X

    else

        MAX := Y ;

    writeln('Le plus grand nombre est ',MAX);

end.