Постройте блок схему и программу для : #1 вычислить произведение четных и сумму нечетных чисел, введенных с клавиатуры. #2 вычислите произведение: p=1×3+2×4+3×5+4×6+5×7+6×8+7×9+8×10

Pascal:
2.
var p, i : integer;
begin
p := 0;
for i : = 1 to 8 do p := p + i*(i+2); 
    writeln(p);
end.