Вводятся m чисел , если ввели больше 10 то найти их сумму , если меньше 10 то найти произведение

Почему произведение 1?

а ты головой подумай, это ж произведение. если б было 0 изначально то и в конце всегда было бы 0

1 - нейтральное число при умножении, так же как 0 при добавлении

var    m, i: integer;    s, p, d: real;begin    readln(m);    p := 1;    s := 0;        for i := 1 to m do     begin        readln(d);        s := s + d;        p := p * d;    end;        if m > 10 then writeln(s);    if m < 10 then writeln(p);end.