Verified answer

var s,p:real;

i:integer;

Begin

  p:=1;

  for i := 1 to 14 do

    if i mod 2 = 0 then p:=p*i

    else s:=s+i;

  writeln(p,s);

End.