Program Exercice02Q02;

Var 
    n : Integer;

Begin
	WriteLn('Donnez un nombre');
	ReadLn(n);
	
	{
		Pour cet exercice, je ne vais pas mettre "Begin" et "End;" vu
		que le "if" et le "else" ne contiennent qu'une seule instruction.
	}
	
	If(n > 0)Then
		WriteLn('Positif') {pas de ";" avant le else}
	Else
		WriteLn('Négatif ou nul');
		
End.