pascalabcnet/TestSuite/CompilationSamples/For2.pas

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

const n = 20;

var i: integer;

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