A:=1; b:=1;
while a<=32 do a:=a*2; b:=b*a;
write (b)

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку