pascalabcnet/TestSuite/CompilationSamples/Random1.pas

// Генерация случайного числа
var
  i: integer;
  r: real;

begin
  i := Random(100);
  writeln('Случайное целое в диапазоне 0..99: ',i);
  i := Random(2,5);
  writeln('Случайное целое в диапазоне 2..5: ',i);
  r := Random;
  writeln('Случайное вещественное в диапазоне [0,1): ',r);
end.