определите, что будет напечатано в результате работы следующего фрагмента программы : var n, s integer Begin n:=1
s:=0
While s<=365 do degin
s:=s+36
n:=n*2​