A:=1; b:=1; while a<=32 do a:=a*2; b:=b*a; write (b)
Ответ:
64
полагаю был вопрос что выведется на экран