Volumn 1   P.146   (8)

program Toss(input, output);
uses wincrt;
var  S     :real;
     I, Head, Tail, Coin :integer;
(**** Procedure ****)
(*----Insert the procedure RND here ----*)
procedure RND(var S :real);
const A = 93;
      B = 8192;
begin
  S := A * S + 1;
  S := round(((S/B) - trunc(S/B)) * B)/2
end;
(**** Main Program ****)
begin
  S := 0.6974;
  Head := 0;
  Tail := 0;
  for I := 1 to 10 do
    begin
      RND(S);
      Coin := trunc(2 * S +1);
      if (Coin mod 2) = 1 then
        begin
          write('H':3);
          Head := Head + 1;
        end
      else
        begin
          write('T':3);
          Tail := Tail + 1;
        end;
    end;
  writeln;
  writeln('THE OCCURRENCE OF HEADS IS ', Head, ' TIMES. ');
  writeln('THE OCCURRENCE OF TAILS IS ', Tail, ' TIMES. ')
end.