program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
    i:byte;
begin clrscr;
    for i:=1 to 15 do
        a[i]:=Random(50);

    for i:=1 to 15 do
        write(a[i],' ');
end.

универсальный метод из скольки чисел хочешь (n это номер чисел)

program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
    i,n:byte;
begin clrscr;
    writeln('n:');readln(n);
    for i:=1 to n do
        a[i]:=Random(50);

    for i:=1 to n do
        write(a[i],' ');
end.