algoritm:
a = 0
sisesta b
while k <> B
i = i + 1;
random (0 v8i 1)
  if 0 then do
  begin
    k = i - 1;
  end
  else
  begin
    k = i + 1;
  end;
writeln ( "Et j8uda ",b, "sammu kaugusele, peate viskama mynti ",i," korda");