pascal uzduotis

//

Kaina?

program Bevarde0;
var i,n,j,sept,lyg:integer;
   begin
       writeln('Kiek loterijos traukimø imituoti?');
       readln(n);

       for i:=1 to n do
           begin
               for j:=1 to 3 do
                   begin
                   if random(10) = 7 then
                       sept:=sept+1;
                   if random(10) mod 2 = 0 then
                       lyg:=lyg+1;
                   end;
           end;

   writeln('lyginiai skaiciai: ',(100*lyg)/(n*3):6:2,'%');
   writeln('7 pasitaike : ',(100*sept)/(n*3):6:2, '%');
   readln;
   end.

uzduotis : "Parašykite programą, kuri imituoja loterijos traukimą. Naudojami kamuoliukai, sunumeruoti nuo 1 iki 10. Vieną loterijos traukimą sudaro trys atsitiktinai ištraukti kamuoliukai. Leiskite vartotojui įvesti, kiek loterijos traukimų imituoti. Kiek procentų traukimų pasitaikė trys lyginiai skaičiai? Kiek procentų traukimų pasitaikė skaičius 7?"

qwn programa klaidinga:

1. viename traukime gali ištraukti 3 septynetus, nors ištraukus 7 jau nebegali jo ištraukti tame pačiame traukime.

2. skaičiuoja visus lyginius, nors turi būti būtent 3 iš 10 ištraukti visi lyginiai.

T.y. traukiant pirmą kamuoliuką tikimybė gaut lyginį yra 1/2 (5 lyginiai 5 ne), traukiant antrąjį 4/9, nes vieną lyginį jau ištraukėm. Traukiant trečią 3/8. Kad visi lyginiai tikimybė 1/2*4/9*3/8 = 0,08(3), ką ir rodys mano programa:

program loterija;
type
   kamuoliukai = array[1..3] of integer;
var
   x, i, j, septynetai, lyg: integer;
   rinkinys: kamuoliukai;
begin
   randomize;
   septynetai:= 0;
   lyg:= 0;
   for i:= 1 to 3 do begin
       rinkinys[i]:= 0;
   end;
   writeln('Kiek bus vykdoma traukimu?');
   readln(x);
   for j:= 1 to x do begin
       rinkinys[1] := random(10) + 1;
       repeat
           rinkinys[2]:= random(10) + 1;
       until rinkinys[1] <> rinkinys[2];
       repeat
           rinkinys[3]:= random(10) + 1;
       until (rinkinys[3] <> rinkinys[1]) and (rinkinys[3] <> rinkinys[2]);
       if (rinkinys[1] = 7) or (rinkinys[2] = 7) or (rinkinys[3] = 7) then
           septynetai:= septynetai + 1;
       if (rinkinys[1] mod 2 = 0) and (rinkinys[2] mod 2 = 0) and (rinkinys[3] mod 2 = 0) then
           lyg:= lyg + 1;
   end;
   writeln('7 pasitaike ',septynetai*100/x:4:2,'% traukimu');
   writeln('Visi lyginiai ',lyg*100/x:4:2,'% traukimu');
 Readln;
end.

Masyvą gali pasikeisti į paprastus kintamuosius: