Bonjour je veux faire un logiciel en pascal algorithme pour calculer le montant d'une facture; alors j'ai mis le code suivants et sa me donne si je mis 9 par ex

Bonjour je veux faire un logiciel en pascal algorithme pour calculer le montant d'une facture; alors j'ai mis le code suivants et sa me donne si je mis 9 par exemple il me donne 5 par co,tre sa dois etre 4.5 merci de m'aider :

le code est le suivant :

program photo;
var
a,facture:real;

begin
writeln('Entrer le nombre du feuille :');
readln(facture);
 if facture <=10 then a:=facture*0.5
 else a:=facture*0.25;
 writeln('le montant a payer est :',a:8:0, ' DH');
 readln;
end.