Метод Монте Карло / Pascal ABC

[Veronika_13]

Помогите переделать задачу на метод Монте Карло
код:
program izdel;
uses crt;
var m1,m2,k,p1,p2,i,j,x1,x2,s,z:integer ;
begin
write('M1='); read(m1);
write('M2='); read(m2);
write('K='); read(k);
write('P1='); read(p1);
write('P2='); read(p2);
if k>m1+m2 then k:=m1+m2;
for i:=0 to m1 do
for j:=0 to m2 do
if i+j<=k then
begin
s:=p1*i+p2*j;
if s>z then
begin
x1:=i; x2:=j; z:=s;
end;
writeln('Z(',i,',',j,')=',s);
end;
writeln('Оптимальный план выпуска: (',x1,',',x2,')');
writeln('Максимальная стоимость: Zmax(',x1,',',x2,')=',z);
end.