Program Exercice01Q01;

Var
	n, temp : Integer;

Begin
	
	WriteLn('Ce programme calcule la valeur absolue d''un nombre entier');
	WriteLn('Donnez un nombre entier :');
	Read(n);
	
	temp := n;
	
	If(n < 0)Then
	Begin
		n := n * -1;
	End;
	
	WriteLn('La valeur absolue de ', temp, ' est : ', n);
	
End.