Определите значения переменных S и i после выполнения следующих операторов

Это что..................

Ответ под номером 2:
Цикл бесконечный

Всё правильно. Можно чуть покороче:
var n,i:longint;
s:real;
begin
readln(n);
s:=1;
for i:=2 to n do s:=s+1/(i*i);
writeln(s);
end.

Пример:
10
1.549767731166541e+00

Алг массив
нач
  цел N = 10
  целтаб a[1:N]
  цел i, k
 
  нц для i от 1 до N
    a[i] := irnd(-2,2)
    вывод a[i], " "
  кц
  вывод нс

  k:=0
  нц для i от 1 до N
    если a[i] > 0 то
      k:=k+1
    все
  кц
  вывод "k = ",k
кон