Составить программку, которая сформировывает массив из 15 случайных целых чисел от

program fantscrin;

 const n = 15;

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

     i,max,max_i:integer;

Begin

 for i:=1 to n do

   a[i]:= random(51);

 for i:=1 to n do

   write(a[i], '  ');

 writeln('');

 for i:=1 to n do

   if (i mod 2 lt;gt; 0) then write(a[i], '  ');

End.