Question

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

Найти значение переменной S.   
...
 i:=2;
 s:=0
;while i<=8 do
begin
s:=s+s/2;
i:=i+2;
end;
write(s);

Answer 1

p=480
S=0
_____________________________________________

Answer 2

P=480, S=0. Насчет S, проверь, мне кажется ты что-то перепутал.