Решить прогрессию на Паскале

var i, k : integer;
    sum, y1, x : real;
begin
   sum := 0;
   k := -1; {знак слагаемого первого}
   writeln('Vvedite chislo > 0'); 
   repeat
      readln(x);
   until x <= 0;
   y1 := ln(x);
   i := 1;
{так}
   while i <=25 do
   begin
      sum := sum + k *y1*i;
      k := -k;     {знак следующего слагаемого}
      i := i + 2;
   end;
{или так}
{  For i:=1 to 25 do
      if i mod 2 <> 0 then
      begin
         sum := sum + k *y1*i;
         k := -k;     {знак следующего слагаемого}
      end;
}
   Writeln((2 + sum):7:2);
   Readln;
end.