pascalabcnet/InstallerSamples/!Tutorial/06_ForWhileRepeat/For2.pas

// Цикл for. Последовательность случайных чисел
const n = 20;

begin
  Print('Случайные оценки:');
  for var i := 1 to n do
    Print(Random(2, 5));
  Println;
  
  Print('Случайные целые от 1 до 99:');
  for var i := 1 to n do
    Print(Random(1, 99));
  Println;
end.