Складіть блок-схему фрагмента алгоритму, у якому цикл з передумовою вкладено у повне розгалуження і який виконується, якщо результат перевірки умови розгалуження Ні. Поясніть виконання складеного фрагмента

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

byck is my dog.

необходимо (но не достаточно).