D:=Entrer("Prix de départ ?");
P:=Entrer("Pourcentage de réduction ?");
R:=D*P/100;
N:=D-R;
Afficher(N);