1) Определите, какое значение будет выведено на экран в результате выполнения приведённой ниже последовательности операторов: *

r:=1;

q:=1;

while r<=8 do

begin

q:=q*r;

r:=r*2;

end:

writeln (q)

2) Определите, какое значение будет выведено на экран в результате выполнения приведённой ниже последовательности операторов: *

r:=2;

q:=1;

while r<7 do

begin

q:=q+r;

r:=r+q:

end:

writeln (q)