Напечатать 10 случайных чисел в среде Паскаль

Variant 1

const

 n = 10;

var

 a: array [1..n] of integer;

 i: integer;

begin

 Randomize;

 Writeln('10 случайных чисел');

 for i := 1 to n do

 begin

   a[i] := Random(20);

   Write(a[i], ' ');

 end;

end.

Variant 2

begin

 ArrRandom(10, 0, 20).Println;

end.

Тестовое решение

10 случайных чисел

13 15 11 3 5 13 14 17 8 9

begin

 for var i := 1 to 10 do print(random(100500));

end.

Совсем народ уже обленился. Настолько то простое и очевидное задание, неужели сложно самостоятельно сделать?