№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</p>
begin
z:=z + r;
r:=r * 2
end;
writeln(z)
end.