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

Спасибо))

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