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

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.

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

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

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