6.с графа можно задать последовательность вычисления арифметического выражения. постройте дерево для арифметического выражения 5*(6+4)+9.

//pascal abc.net v3.1 сборка 1172 type   re=record   sub: string;   name: string;   co: integer; end; var   n,i,k: integer;   ar: array of re; begin   readln(n);   setlength(ar,n+1);   for i: =1 to n do   begin     writeln('введите фамилию участника №',i);     readln(ar[i].sub);     writeln('введите имя участника №',i);     readln(ar[i].name);     writeln('введите участника №',i);     readln(ar[i].co);     if ar[i].co> 100 then inc(k);   end;   writeln('количество прошедших=',k); end. пример ввода: 4 введите фамилию участника №1 двачевская введите имя участника №1 алиса введите участника №1 99 введите фамилию участника №2 персунов введите имя участника №2 семён введите участника №2 101 введите фамилию участника №3 коллайдер введите имя участника №3 виола введите участника №3 999 введите фамилию участника №4 сиина введите имя участника №4 микадо введите участника №4 100 пример вывода: количество прошедших=2