Решить решить в pascal треугольник задан длинами сторон. найти: а)длины высот; б)длины медиан; в)длины биссектрис;

Код скопировать и вставить не получается прога на ipad'е дерьмовая. никогда не писал раньше на паскале(c,c++,c# ,basic, html, php, javascript   только  ), но должно быть так. 

В это время интернет очень нужен. Но что ечди его не будет!? Давайте преставим. Ты сидишь и делаешь уроки и тут в один момент пропадает интернет. А уроки надо отослать учительнице. Что мы будем делать?! Никто не знает. В социальные сети ты не зайдешь, ведь там тоже нужен интернет. Можно было бы позвонить учителю и скащать что интернет не работае скинуть не могу. Но номера у нас нет! Что мы будем делать?! Никто не знает. Во общем если интернета не будет, то мир на будет без хороших оценок.

Объяснение:

Program chet_nechet;   const n=20;   type mas=array[1..n] of integer;   var i,k,sum,sum2,sr: integer; a: mas;   begin  sum: =0;   sum2: =0;   k: =0;   write('массив: ');   for i: =1 to n do  begin  a[i]: =random(100);   write(a[i],' ');   if a[i] mod 2=0 then begin k: =k+1; sum2: =sum2+a[i]; end                  else sum: =sum+a[i];   end;   writeln();   writeln('сумма нечётных чисел=',sum);   write('среднее арифметическое четных чисел=',sum2/k: 0: 2);   end.  если нужно что-то объяснить, то