Question

Объясните, пожалуйста, как это решать.

Answer 1

цикл while - делай, пока условие истинно
т.е. пока i <= 9 программа выполняет блок внутри этого цикла в операторных скобках begin .. end;
P=1, i=3: 
i (=3) <= 9 ?   да => p:=1*(3 div 3)=1*1=1, i:=3+1=4
i (=4) <= 9 ?   да => p:=1*(4 div 3)=1*1=1; i:=4+1=5
и т.д. пока верно условие i<=9 
P.S. div - деление нацело, т.е. 5 div 2=2, в пятерке содержится 2 раза число два, в ответ идет 2
а вот 5 mod 2 = 1 это деление с остатком