(*
Fichier : exo1.pas
Description : Conversion de l'exercice 2 du TD révision en Pascal
Auteur : INGOUFF Christian
Date : 23/11/11 (1.0)
Version : 1.0
*)
program Money;
var
input, nb10, nb5, nb2: integer;
begin
	input := -1;
	while input < 0 do
		begin
		writeln('Saisir une somme d''argent');
		readln(input);
		if input < 0 then writeln('Veuillez saisir une somme d''argent positive !');
		end;
	writeln('Pour avoir ',input,' €, il vous faut :');
	nb10 := input div 10;
	input := input mod 10;
	nb5 := input div 5;
	input := input mod 5;
	nb2 := input div 2;
	input := input mod 2;
	if nb10 = 1 then writeln('- ',nb10,' billet de 10')
	else if nb10 > 0 then writeln('- ',nb10,' billets de 10');
	if nb5 > 0 then writeln('- ',nb5,' billet de 5');
	if nb2 = 1 then writeln('- ',nb2,' pièce de 2')
	else if nb2 > 0 then writeln('- ',nb2,' pièces de 2');
	if input > 0 then writeln('- ',input,' pièce de 1');
	readln;
end.
