Вводятся 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.