pascal > cc

Program plusGrand(input,output);
     var a,b,c:real;
     function MAX(x,y:real):real;
       begin
         if x>=y then MAX:=x else MAX:=y
       end;
     begin
       writeln('Entrez les 2 valeurs : ');
       readln(a,b);
       c:=max(a,b);
       writeln('Le plus grand est ',c)
     end;