описать числовой массив на 5 элементов и заполнить его присваиванием любыми числами, распечатать содержимое элементов массива

PASCALABC.NET
var
a: array[1..5] of integer;
i : integer;
Begin
randomize;
For i:= 1 to 5 do
   a[i]:= random(5000);
For i:= 1 to 5 do 
  write(a[i], ' ');
end.