Помогите пожалуйста
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;