Voilà l'exercice

Elaborer un programme qui permet de lire pour un client d'une agence de location de voitures le nom, la nationalité (marocaine ou etrangère), la
durée de location et le prix unitaire, ensuite de calculer et afficher le prix
total, la réduction et le montant à payer.
* La réduction est 15% du prix total pour les marocains et 500 DHs pour chaque semaine complète pour les étrangers.
Et mon travail le voici
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
ses crt;
 
var   d,reste:byte;
      n,na,m,e:string;
      pu,pt,ru,nap:real;
 
 
begin
clrscr;
write('Donner le nom du client:                ');readln(n);
write('Donner la nationalit‚ du client:        ');readln(na);
write('saiser la dur‚e du jour:                ');readln(d);
write('saiser le prix unitaire du chaque jour: ');readln(d);
 
if n='m' then
ru:=pu*d*0.15
nap:=(pu*d)-ru
 
 
 
else if (n='e') and (d<7) then
 
       ru:=0
 
       else   if (n='e') and (d=7) then
 
       ru:=pu*d-500
 
             else   if (n='e') and (d>7) then
 
                    reste:= d mod 7
 
                    ru:=( (d mod 7) - 500 ) + (reste * pu)
 
                    pt:=pu*d
 
                    nap:=pu*d-ru;
 
writeln('le prix total est:     ',pt:4:2);
writeln('la r‚duction est :     ',ru:4:2);
writeln('le montant … payer est:',map:4:2);
readln;
end.
Je demande une aide S.V.P