Определите значение переменной Р после выполнения следующего фрагмента программы:
P:=1; i:=3;
while i <= 9 do begin
P := P * (i div 3);
i := i + 1;
end;