Exercice 2 Remise dans un supermarché!

L'exercice consiste à calculer la remise de 5% que fait un magasin si l'on hachete pour un montant superieur à 500F!

Voyons les notions que l'on vas utiliser dans cette exercice.
Les structures de test. Ce sont des instructions qui permetent de tester si une condition est valide et de reagir en consequence! En voici la syntaxe:
if condition then
begin
InstructionSiConditionVrai1;
InstructionSiConditionVrai2;
etc....
end
else
begin
InstructionSiConditionFaux1;
InstructionSiConditionFaux2;
etc...
end;

Maintenant comme prevus voyons comment FORMATER un nombrer. Et oui dans l'exercice precedent on a remarquer que par defaut le pascal affichait les nombres en notation scientifique c'est a dire avec un seule chiffre avant la virgule.
La syntaxe du parametrage est la suivante:
writeln('La variable=',i:X:Y);
X:Nombre de carractere pour l'affichage du chiffre, en sachant que le point decimale et le "-" des nombres negatifs sont cosiderés comme des carractéres. Le fait est aussi que le pascal ne tronque jamais les entiers. Ce qui signifie que le chiffre qui est avant le point decimale sera TOUJOURS affiché en entier.
Y:Nombre de chiffre apres le point decimale.
En pratique on formate quasiement toujours ainsi:
writeln('Bla bla bla..',i:1:NbDeDecimale);

Voila le programme en lui même:

program Exercice2;
const
SeuilRemise=500;
Remise=0.05;
var
Montant,MontantRemise:real;
begin
write('Entrez le montant total de vos achat:');
readln(Montant);
if Montant>SeuilRemise then
begin
MontantRemise:=(1-Remise)*Montant;
writeln('Vous beneficiez d'une remise de ',Remise*100:1:0,'%');
writeln('Vous ne devez plus que:',MontantRemise:1:2,' au lieu de :',Montant:1:2);
end
else
writeln('Vous ne bénéficiez pas de la remise!');
wrteiln('Merci au revoire!');
end.