Program Exercice01Q03;

Var 
	montant, frais_transport, total : Integer;

Begin
	
	WriteLn('Ce programme calcule le totale à payer pour une commande');
	WriteLn('Quel est le montant de la facture?');
	
	ReadLn(montant);
	frais_transport := 400;
	
	If(montant > 5000)Then
	Begin
		frais_transport := 0;
	End;
	
	total := montant + frais_transport;
	WriteLn('Le total à payer est ', total, ' DA');
	
End.