22) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n := 0; s := 0; while s <= 256 do begin s := s + 25; n := n + 1 end; write(n) end.