Помогите пожалуйста!!! 18 баллов!!!
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)