1:

var n,s:integer;

begin

   n := 10;

   s := 0;

   while n >= 1 do begin

       s := s + n;

       n := n-1;

   end;

   write(s);

end.

2:

var n:integer;

   s:real = 0;

begin

   n := 10;

   while n >= 2 do begin

       if n mod 2 <> 0 then s := s - 1/n

       else s := s + 1/n;

       n := n-1;

   end;

   write(s:0:2);

end.