метод статического моделирования (метод Монте-Карло)

[666Julia666]

помогите написать программы в паскале:

1. Стрелок делает серию из 5-ти выстрелов по мишени. Вероятность того, что он попадает в мишень равна 0,65. Найти вероятность того, что он попадет в мишень хотя бы 3 раза.

2. Определить вероятность того, что среди 6-ти розданных карт есть по крайней мере 4 карты одной масти. (в колоде 36 карт).

вторую задачу сделала так (преподаватель сказал, что высчитывает не правильно):
Program lab42;
const N=100000;
var i,f,h,l,g:integer;
d,k:real;
j,count:longint;
begin

randomize;
count:=0;
for j:=1 to N do
begin
f:=0; g:=0; l:=0; h:=0;
for i:=1 to 6 do
begin
d:=random(36);
if (d<9) then g:=g+1;
if (g>=4) then count:=count+1;

if (9<=d) and (d<18) then h:=h+1;
if (h>=4) then count:=count+1;

if (18<=d) and (d<27) then l:=l+1;
if (h>=4) then count:=count+1;

if (27<=d) and (d<35) then f:=f+1;
if (f>=4) then count:=count+1;
end;
end;
k:=100*count/N;
writeln('verojatnost ravna ',k:6:3,'%');
readln;
end.