Составить программу для вычисления длин высот треугольника , у которого длины сторон abc

Uses crt; var a,b,c: integer; h1,h2,h3,p,s: real; begin readln(a); readln(b); readln(c); p: =(a+b+c)/2; s: =sqrt((p-a)*(p-b)*(p-c)); h1: =2*s/a; h2: =2*s/b; h3: =2*s/c; writeln(h1); writeln(h2); writeln(h3); end.

pascal:

var a,n,count,max,i: integer;

begin

count : =0;

max: = -1;

readln(n);

for i: =1 to n do

      begin

      readln(a);

  if (a> max) then

        begin

        max: =a;

  count: =1;

  end

  else

          begin

          if (a = max) then

        count: =count+1;

  end

      end;

writeln(count);

end.

const

n=10;

var

a : array [1..n] of integer;

k, i, s : integer;

begin

s: =0;

randomize;

writeln('введите число n= ');

read(k);

writeln('массив: ');

for i: =1 to n do

  begin

    a[i]: =random(10)+1;

    write(a[i],' ');

  end;

writeln;

for i: =1 to n do

    if (a[i]=k) then

      begin

        s: =s+1;

        write('номер элемента равный n: ',i)

      end;

if (s=0) then  

  writeln('такого числа нет');        

end.