// Цикл while. Степени 2 begin writeln('Степени 2'); var i := 1; var p := 1; while i<32 do begin writeln(i:2,p:12); i += 1; p *= 2; end; end.