В левом столбце переставьте слова так, чтобы они соответствовали правому

// Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5

var ish, krat: array [1..30] of word;
    i,j,x      :byte;
begin  j:=1;
  randomize;
  for i:=1 to 30 do //заполняем исходный массив случайными числами (до 1000)
  begin
    ish[i]:=random(1000);
    writeln (i,' элемент исходного массива ',ish[i]);
  end;
  writeln ('находим элементы кратные пяти:');
  for i:=1 to 30 do
  begin
      x:= ish[i] mod 5; //определяем элементы кратные пяти
      if x=0 then
        begin          //и заполняем новый
        krat[j]:=ish[i];
        writeln (j,' элемент нового массива ',krat[j],' равен ',i,' элементу исходного массива');
        j:=j+1;
        end;
   end;
end.

Если ты не знаешь как создать сейчас скажу.
живешь на правую кнопку мыши там было зимы программу itunes создать и выбираешь папку и как они там документ кто принес на папку потом нажимаю на папку опять только уже левой кнопкой мыши и там вылазит еще открытие удалить и так далее ты нажимаешь изменить имя стираешь новая папка или пишешь свое название папки. заполняющая телефон для музыки на galaxy ты сразу туда туда добавляешь очень много музыки чтоб появилась песня на мелодию на нее появилась ты создал все