Program Example49;
 
{ Program to demonstrate the Random and Randomize functions. }
 
Var I,Count,guess : Longint;
    R : Real;
 
begin
  Randomize; { This way we generate a new sequence every time
               the program is run}
  Count:=0;
  For i:=1 to 50 do
    If Random>0.5 then inc(Count);
  Writeln ('Generated ',Count,' numbers > 0.5');
  Writeln ('out of 50 generated numbers.');
  count:=0;
  For i:=1 to 5 do
    begin
    write ('Guess a number between 1 and 5 : ');
    readln(Guess);
    If Guess=Random(5)+1 then inc(count);
    end;
  Writeln ('You guessed ',Count,' out of 5 correct.');
end.

UHJvZ3JhbSBFeGFtcGxlNDk7Cgp7IFByb2dyYW0gdG8gZGVtb25zdHJhdGUgdGhlIFJhbmRvbSBhbmQgUmFuZG9taXplIGZ1bmN0aW9ucy4gfQoKVmFyIEksQ291bnQsZ3Vlc3MgOiBMb25naW50OwogICAgUiA6IFJlYWw7CgpiZWdpbgogIFJhbmRvbWl6ZTsgeyBUaGlzIHdheSB3ZSBnZW5lcmF0ZSBhIG5ldyBzZXF1ZW5jZSBldmVyeSB0aW1lCiAgICAgICAgICAgICAgIHRoZSBwcm9ncmFtIGlzIHJ1bn0KICBDb3VudDo9MDsKICBGb3IgaTo9MSB0byA1MCBkbwogICAgSWYgUmFuZG9tPjAuNSB0aGVuIGluYyhDb3VudCk7CiAgV3JpdGVsbiAoJ0dlbmVyYXRlZCAnLENvdW50LCcgbnVtYmVycyA+IDAuNScpOwogIFdyaXRlbG4gKCdvdXQgb2YgNTAgZ2VuZXJhdGVkIG51bWJlcnMuJyk7CiAgY291bnQ6PTA7CiAgRm9yIGk6PTEgdG8gNSBkbwogICAgYmVnaW4KICAgIHdyaXRlICgnR3Vlc3MgYSBudW1iZXIgYmV0d2VlbiAxIGFuZCA1IDogJyk7CiAgICByZWFkbG4oR3Vlc3MpOwogICAgSWYgR3Vlc3M9UmFuZG9tKDUpKzEgdGhlbiBpbmMoY291bnQpOwogICAgZW5kOwogIFdyaXRlbG4gKCdZb3UgZ3Vlc3NlZCAnLENvdW50LCcgb3V0IG9mIDUgY29ycmVjdC4nKTsKZW5kLg==