Program Exercice02Q04;

Var 
    a, b, c : Real;

Begin
	WriteLn('Ce programme effectue la division de deux nombres réels');
	
	WriteLn('Donnez le numérateur (a) :');
	ReadLn(a);
	
	WriteLn('Donnez le dénominateur. (b) :');
	ReadLn(b);
	
	If(b <> 0)Then
	Begin
		c := a/b;
		WriteLn('a/b = ', c:5:2);
	End
	Else
		WriteLn('Erreur : Division par zéro interdite');
		
End.