8.

Program z8;

var n,z:integer;   i,sum:real;

 begin

   readln (N);

   while (z<>n) do

       begin

           z:=z+1;

           i:=1/z;

           sum:=sum+i;

           writeln (sum);

       end;

end.

9.

program z9;  

var a,b,i, summ:integer;

   begin

    Writeln('Введите А и В'); readln(a,b);

   for i:=a to b do

   if i mod 4 = 0 then summ:=summ+i;

   Writeln('Сумма = ', summ);

   readln

   end.