Program baitap;

Uses crt;

Var n,S,i:integer;

Begin

Clrscr;

Write('n='); Readln(n);

S:=0;

For i:=1 to n do

   If i mod 2=0 then S:=S+i Else S:=S+i*(-1);

Writeln('S=',S);

Readln

End.

uses crt;
Var 
    n,S,i: integer;
Begin
    clrscr;
    write('Nhap so nguyen duong n: '); readln(n);
    S:=0; i:=0;
    repeat
        i:=i+1;
        If i mod 2=0 then S:=S+i 
            else S:=S+(-1)*i;
    until (i=n);
    If n=5 then writeln('S = - 1 + 2 - 3 + 4 - ',n,' = ',S)
        else if n mod 2=0 then writeln('S = - 1 + 2 - 3 + 4 + … + ',n,' = ',S)
                else writeln('S = - 1 + 2 - 3 + 4 + … - ',n,' = ',S);
    readln;
End.