Даю 35 ПоинтовПожалуйста посчитайте пожалуйста​

цикл While означает - пока, пока i>1 нужно делать:

S:=s+1 изначально наша s=0, проверяем, i=1 пока 1>1 это не верно, 1 не больше 1, а равно. То есть программа ничего не сделает.

Программа составлена не корректно.