Deskripsi untuk soal nomor 33 - 34

Perhatikan potongan kode program berikut

var
 i,j,x,baa:longint;

 begin
x:=0;
baa:=10;
 for i:=1 to baa do begin
 for j:= 1 to i do begin
 if i mod 2=1 then
 x:=x-j
 else
 x:=x+j;
 end;
 end;
 writeln(x);
 end.