программа на Паскале… Нахождение произведения четных чисел  и суммы нечетных чисел меньше 15…

Вопрос от посетителя

программа на Паскале…

Нахождение произведения четных чисел  и суммы нечетных чисел меньше 15…

Отвечает Илюха:

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.