Найти значение переменной Р.     
  ...
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);