Написать программку: Наполнение массив элементов случайными числами.

Program zadaha1 (input. output); вод-вывод частей массива
nbsp;var
nbsp;nbsp;a: array[1..10] of integer;
nbsp;nbsp;i: integer;
begin
nbsp;randomize;
nbsp;for i:=1 to 10 do begin
nbsp;nbsp;a[i]:=random (30);
nbsp;writeln(A(, I , )=, a[i])
nbsp;nbsp;end;
end.