Определите какое значение будет иметь P в результате выполнения фрагмента программы:
P:=1;
for i:=1 to 5 do
if i<5 then
P:=P*i;