Равнобедренная трапеция задана координатами вершин. найти дли- ну высоты. для паскаля

1) const n=10; var a: array[1..n]of integer; i,k: integer; begin         for i: =1 to n do               begin                   readln(a[i]); ; ;                       if a[i]mod 5=0 then                           k: =k+1;               end; writeln; writeln(k); end. 2) const n=10; var a: array[1..n]of integer; i,s: integer; begin         for i: =1 to n do               begin                   a[i]: =random(21)-10;                     write(a[i]: 4);                       if (abs(a[i]mod 10)=3) then                           s: =s+a[i];               end; writeln; writeln(s); end.

Const    n = 15; var   mas: array[1..15] of integer;   i, max1, max2,  min, c, d: integer; begin   c: =-1;   max1: =-maxint;   min: =maxint;   max2: =-maxint;   randomize;   for i: =1 to n do     mas[i]: =random(101)-50;   write('массив:   ');     for i: =1 to n do     write(mas[i], ' ');   writeln;   for i: =1 to n do   begin     if (mas[i]> 0) and  (mas[i]> max1) then       max1: =mas[i];     if (mas[i] mod 2 < > 0) and (max2< mas[i]) then     begin       c: =i;       max2: =mas[i];       end;       if (mas[i] mod 2 < > 0) and (min> mas[i]) then     begin       d: =i;       min: =mas[i];     end;     end;   writeln('максимальный положительный элемент:   ',max1);   writeln('минимальный нечетный элемент:   ',min);   writeln('максимальный нечетный элемент:   ',max2);   if c< d then       writeln('максимальный элемент стоит раньше')   else     writeln('минимальный  элемент стоит раньше'); end.