Program untitled;

Var 
    n, i, somme : Integer;

Begin
	WriteLn('Donnez n');
	ReadLn(n);
	
	{ En Algorithme, nous avons la notion du 'pas',
	  En Pascal, il faut le faire "manuellement" }
	i := 2;
	somme := 0;
	
	While(i <= n)Do
	Begin
		somme := somme + i;
		i := i + 2; { Sans cette incéremntation, nous allons avoir une boucle infinie }
	End;
	
	Write('La somme des nombres pairs entre 1 et ', n, ' est ', somme);
	
	
End.