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.
UHJvZ3JhbSBNYXgzOwpWYXIgYSwgYiwgYywgbWF4aSA6IEludGVnZXI7CkJlZ2luCldyaXRlbG4gKCdTYWlzaXIgdHJvaXMgZW50aWVycyA6ICcpOwpSZWFkbG4gKGEsIGIsIGMpIDsKbWF4aSA6PSBhIDsKSUYgYj5tYXhpIFRoZW4gbWF4aSA6PSBiOwpJRiBjPm1heGkgVGhlbiBtYXhpIDo9IGM7CldyaXRlbG4gKCdMYSBwbHVzIGdyYW5kZSB2YWxldXIgZXN0IDogJywgbWF4aSk7IApFbmQu