Program Max3;
Var a, b, c, maxi : Integer;
Begin
Writeln ('Saisir trois entiers : ');
Readln (a, b, c) ;
maxi := a ;
If b>maxi Then maxi := b;
If c>maxi Then maxi := c;
Writeln ('La plus grande valeur est : ', maxi); 
End.