function fun
# 0 - orzeł
# 1 - reszka
G = 0
J = 0
rzuty = [-1,-1,-1,-1,-1,-1]; #-1 znaczy jeszcze nie było rzutu
i = 1;
n = 1;  # ile w sumie było rzutów
x = rand(1);
while(n<10000)
  if(x<0.5)
    rzuty(i) = 0;
    rzuty(i+3) = 0;
  else
    rzuty(i) = 1;
    rzuty(i+3) = 1;
  endif
  #wygrana G
  if (rzuty(i)==1 && rzuty(i+1)==0 && rzuty(i+2)==1)
    G = G+1;
    rzuty = [-1,-1,-1,-1,-1,-1];
    i = 1;
  endif
  # wygrana J
  if (rzuty(i)==0 && rzuty(i+1)==0 && rzuty(i+2)==1)
    J = J+1;
    rzuty = [-1,-1,-1,-1,-1,-1];
    i = 1;
  endif
  if(i==3)
    i=1;
  elseif (i<3)
    i = i+1;
  endif
  x=rand(1);
  n += 1;
endwhile
disp("G="), disp(G)
disp("J="), disp(J)
endfunction