По паскалю вычисление ожидания оформить в виде процедуры.

Var 
 m:real;
 n,i:integer;

procedure MathW(var i:integer;var m:real);
var
 x,p:real;
begin;
write('Введите значение ',i,':');
readln(x);
write('Введите вероятность ',i,':');
readln(p);
m:=m+x*p;
end;

begin;
write('Введите количество испытаний:');
readln(n);
for i:=1 to n do
MathW(i,m);
write('Result:',m);
end.