Результатом выполнения фрагмента программы S:=-5x:=0repeat s:=s*(x+2)x:=x+1 until x<2write(s) будет сообщение