решите последовательность действий команд исполнителю.2 выполняет команды.3алгоритм ветвления это-4 алгоритм повторения это-,5алгоритм следования это-​

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var sg:=['а','е','и','о','у','ы','э','ю','я'];
  var a:=ReadlnString('Вводите текст: ').ToWords(',','.');
  var r:set of char=[];
  for var i:=0 to a.Length-1 do begin
    var b:=a[i].Where(c->c in sg).GroupBy(t->t).Select(t->(t.Key,t.Count));
    foreach var t in b do
      if t[1]>2 then r+=[t[0]];
    end;
  var s:='';
  foreach var c in r do s+=c;
  s.OrderBy(t->t).Println(',')
end.

Пример
Вводите текст:  Дает,корова,молоко,а,жираф,это,длинношеее,животное.
е,о

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadArrInteger(ReadInteger('n='));
  var p:=x.FindIndex(t->t>10);
  if p=-1 then Writeln('Нет элементов, больших 10')
  else begin
    Write('Ср.арифм.значений до ',x[p],' равно ');
    if p=0 then Writeln('0')
    else Writeln(x[:p].Average);
    var s:=x[p+1:].Where(t->t<0);
    Write('Ср.арифм. отрицательных значений после ',x[p],' равно ');
    if s.Count=0 then Writeln('0')
    else Writeln(s.Average)
    end
end.

Пример
n= 12
4 1 -13 15 13 0 9 5 -12 9 4 -11
Ср.арифм.значений до 15 равно -2.66666666666667
Ср.арифм. отрицательных значений после 15 равно -11.5