fork(3) download
  1. var a: integer;
  2. begin
  3. randomize;
  4. a:=random(100);
  5. write(a);
  6. readln;
  7. end.
Success #stdin #stdout 0s 232KB
stdin
Standard input is empty
stdout
5