выполнить алгоритм ветвления для блок схемы на рисунке подобрать значение что бы алгоритм повторялся 3 раза

//Pascal ABC.NET v3.1 сборка 1172

var
  NA, NB, NC: integer;

function minim(ar: array of real; n: integer): real;
var
  i: integer;
  min: real;
begin
  min := MaxReal;
  for i := 0 to n - 1 do //динамические массивы индексируются с 0
    if min > ar[i] then min := ar[i];
  minim := min;
end;

begin
  randomize;
  write('NA:');readln(NA); //ввод размерностей
  write('NB:');readln(NB);
  write('NC:');readln(NC);
  var a := ArrRandomReal(NA, 1, NA); //инициализация динамических массивов
  var b := ArrRandomReal(NB, 1, NB);
  var c := ArrRandomReal(NC, 1, NC);
  a.println(' ');
  writeln('Min:', minim(a, NA));
  b.println(' ');
  writeln('Min:', minim(b, NB));
  c.println(' ');
  writeln('Min:', minim(c, NC));
end.

Пример ввода:
NA:3
NB:4
NC:5
Пример вывода:
2.45183664907321 2.12786289357015 2.8286734511278
Min:2.12786289357015
3.47355249453036 1.03827733129183 2.42042394141686 2.17556424353996
Min:1.03827733129183
3.9204495134393 3.64103751938838 3.57791954771519 4.31033914690387 4.13624760282051
Min:3.57791954771519

Объяснение:

1) линейный, разветвляющийся, циклический

2) эллипс-начало и конец алгоритма

прямоугольник- выполнение действий

параллелограмм- ввод и вывод данных

ромб-принятие решений

3) во не понятен, но вероятнее всего : цикл "всегда"- не даёт скрипту закончить самому свою работу

цикл"повторить... раз" повторяет вложенные в него команды определенное количество раз

4) в зависимости от условия выполняется либо одна либо другая последовательность

5) нет определения где(пусть будет в скретч): всегда, когда щёлкнут по флажку; когда я получу, передать сообщение, касается; идти ... шагов; повернуться в направлении; скрыть переменную; показать переменную; когда клавиша ... нажата

6) цикл с предусловием, цикл с постусловием

7) ждать, повторить, всегда, есть... то, иначе, ждать до..., повторять пока не..., стоп