Как сделать, что бы программа выводила два ответа, один - точный, а другой - по методу Монте-Карло(количество выполнений вводится с клавиатуры)
var m1,m2,k,p1,p2,i,j,x1,x2,s,z:longint;
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;
end;
writeln('Оптимальный план выпуска: (',x1,' изделий вида А ,',x2,' изделий вида В)');
readln
end.