Вывести массив с 25 элементами, заполненный случайными числами в диапазоне от 0 до 100. вывести без пояснений через 2 пробела.

Var
  i:integer;
  a:array[1..25]of integer;
begin
for i:=1 to 25 do
   begin
   a[i]:=random(0,100);
   write(a[i],'  ');
   end;
end.