№1.

a:=2,b:=3 ; 3 больше или равно 0 - да ; b= 3*2-2=4, a:=2*2=4

a:=4,b:=4 ; 4 больше или равно 0 - да ; b:=4*2-4 =4, a:=4*2=8

a:=8,b:=4 ; 4 больше или равно 0 - да ; b:=4*2-8=0, а:=8*2=16

a:=16,b:=0 ; 0 больше или равно 0 - да ; b:=0*2-16=-16, a:=16*2=32

a:=32,b:=-16 ; -16 больше или равно 0 - нет ; значение переменной -16

Ответ. b:=-16

№2.

var r, z: integer;

begin

r:=3;

z:=0;

while r <= 24 do

begin

z:=z + r;

r:=r * 2

end;

writeln(z)

end.