Сделать в описать числовой массив на 25 элементов и заполнить его случайными целыми числами, каждое из которых лежит в пределах от 10 до 50, распечатать содержимое элементов массива в строку.

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