Помогите пожалуйста 1) Определите значение переменной P после выполнения следующего фрагмента программы: P:=1; i:=3; while i меньше = 9 do begin P := P * (i div 3); i := i + 1; end; 2) S:=0; i:=7; while i больше 1 do begin...

Помогите пожалуйста 1) Определите значение переменной P после выполнения следующего фрагмента программы: P:=1; i:=3; while i <= 9 do begin P := P * (i div 3); i := i + 1; end; 2) S:=0; i:=7; while i > 1 do begin S := S + i div 2; i := i - 1; end; 3) S:=1; i:=1; while i < 5 do begin S := S + i*(i+1); i := i + 1; end; 4) a := -5; b := 14; b := b + a*2; if a > b then c := a + b else c := b – a; 5)  х := 11; у := 5; t := y; у := х mod у; x := t; у := у + 2*t;