Отыскать значение переменной Р.        ...p:=1;For i:=3 to 5 dop:=p*(2*i);write(p);Найти

Отыскать значение переменной Р.
...
p:=1;
For i:=3 to 5 do
p:=p*(2*i);
write(p);

Отыскать значение переменной S.
...
i:=2;
s:=0
;while ilt;=8 do
begin
s:=s+s/2;
i:=i+2;
end;
write(s);