Răspuns:
var s,p,i:integer;
begin
s=0;
p=1;
for i:=1 to 34 do
if i mod 2 =0 then
s:=s+i
else
p:=p*i;
writeln("s=",s);
writeln("p=",p);
end.
Explicație:
Se parcurge intervalul si se verifica daca i este par, calculand s, in caz contrar se calculeaza p;