Написать программку для оценки математического ожидания и дисперсии в паскаль

случайной величины Х... и есть вариант для задания х=-3,-7,0 ,р=0.1;0.2;0.7;

х-да,сами значения...но до этого писали программу чисел рандом на отрезке [0.1]

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

исходя из этого нужно написать программку оценки мат ожидания и дисперсии но с нашими х,которые я написала

напишите как сообразили,Если сможете написать

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var x:=new real[] (-3.0,-7.0,0.0);
  var p:=new real[] (0.1,0.2,0.7);
  var Mx:=x.Zip(p,(a,b)-gt;a*b).Sum;
  var Mx2:=x.Zip(p,(a,b)-gt;a*a*b).Sum;
  var Dx:=Mx2-Sqr(Mx);
  Writeln('Математическое ожидание ',Mx,', дисперсия ',Dx)
end.

Итог
Математическое ожидание -1.7, дисперсия 7.81