{   _______________________
   |                       |     Kohvik on t„histatud -ga.
   |  |XXX|  |XXX|  |XXX|  |
   |                       |
   |  |XXX|  |XXX|  |XXX|  |
   |                     |
   |  |XXX|  |XXX|  |XXX|  |
   |                       |
   |  |XXX|  |XXX|  |XXX|  |
   |   ____________________|
   |  |
šlesanne on j„rgmine:
Jonisel paikneb �he sisse- ning v„ljap„„suga kaubandusrajoon.
Turistid longivad t„navatel ning t„navanurgalt l„hevad juhuslikus suunas,
kuid tagasi ei p””ra. Sisse-v„ljap„„s rajooni on all vasakul. Juhul,
kui turist satub taas sissep„„su juurde, ta v„ljub rajoonist.

 Mitu protsenti inimestest jäuab kohvikusse l�himat teed pidi
 (neli kvartalipikkust). Mitu protsenti l„bib enne kohvikusse jäudmist
 20 väi rohkem kvartalipikkust?}

const turistidearv=200;
label uuesti;
var
suvekohvik, koht, vanakoht, uuskoht,i: integer;
count, protsent1, protsent2, loenda1, loenda2: integer;
r: integer;
begin
  randomize;
  suvekohvik:=0;
  count:=0;
  loenda1:=0;
  loenda2:=0;
  for i:=1 to turistidearv do
  begin
    vanakoht:=0;
    koht:=1;
    uuesti:
    r:=random(4);

{vasak ja parem „„r}
if ((koht=5)or
    (koht=9)or
    (koht=13)or
    (koht=17)) and (r=1)
  then goto uuesti;
if ((koht=4)or
    (koht=8)or
    (koht=12)or
    (koht=16)) and (r=0)
  then goto uuesti;

if r=0 then uuskoht:=koht+1; {paremale}
if r=1 then uuskoht:=koht-1; {vasakule}
if r=2 then uuskoht:=koht+4; {�lesse}
if r=3 then uuskoht:=koht-4; {alla}
count:=count+1;

{tingimused selleks, et turist skeemist v„lja ei sammuks;
saan turisti uue asukoha}
if(uuskoht<>vanakoht) and (uuskoht<=20) and (uuskoht>0)
then
  begin
    vanakoht:=koht;
    koht:=uuskoht;
  end;

{kui turist ei ole jäudnud suvekohvikusse, siis j„tkab teekonda}
{koht 11 on suvekohvik}
if (koht<>11) and ((koht<>1)or(vanakoht=0)) then goto uuesti;

{kui turist jäuab kohvikusse}
if (koht=11) then suvekohvik:=suvekohvik+1;
if (koht=11) and (count=4) then loenda1:=loenda1+1;
if (koht=11) and (count>=20) then loenda2:=loenda2+1;
end;

protsent1:=round((loenda1/turistidearv)*100);
protsent2:=round((loenda2/turistidearv)*100);
writeln('Suvekohvikusse jäuab ',suvekohvik,' turisti, neist l�himat teed pidi ',protsent1,' %.');
writeln('Kohvikusse jäudnutest l„bib ennem 20 väi enam kvartalipikkust ',protsent2,' %.');
writeln;
readln;
end.