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

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)->a*b).Sum;
  var Mx2:=x.Zip(p,(a,b)->a*a*b).Sum;
  var Dx:=Mx2-Sqr(Mx);
  Writeln('Математическое ожидание ',Mx,', дисперсия ',Dx)
end.

Результат
Математическое ожидание -1.7, дисперсия 7.81

прийдется отвечать, молодежь не все помнит )))

Объяснение:

по нанесения изображения мне известны 3 вида принтеров

как было указано в первом ответе это

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

струйные, в которых жидкая краска из головки выплевывается через тонкие отверстия - дюзы

но еще остались динозавры печатания - матричные принтеры, в том числе и цветные (но их очень мало было)

матричный (он же механичный нанесения изображения состоит в том что в головке принтера маленькие иголочки ударяют по бумаге через красящую ленту, как в печатной машинке. при этом печатаются не только буквы но и изображения. сам работал с матричными принтерами epson серий LX , FX.

своими глазами видел что таковые еще существуют и сегодня

Необходимо зайти в фирменное приложение Темы, выбрать вкладку шрифты, скачать и установить понравившиеся шрифты. Если выбирать из установленных шрифтов - зайти в фирменное приложение Темы, далее аккаунт, нажать на кнопку Шрифты и выбрать понравившийся шрифт

Объяснение:

Необходимо зайти в фирменное приложение Темы, выбрать вкладку шрифты, скачать и установить понравившиеся шрифты. Если выбирать из установленных шрифтов - зайти в фирменное приложение Темы, далее аккаунт, нажать на кнопку Шрифты и выбрать понравившийся шрифт