Подскажите ответы на тест

1) 9

2) 1

3) 2 раза

4) 24502500

5) 6

первое 9  2 не знаю

Объяснение:

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.