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

Program asd; uses crt; var a,b,c,s1,s2,s3: real; begin clrscr; writeln('vvedite dliny storony a: '); readln(a); writeln('vvedite dliny storony b: '); readln(b); writeln('vvedite dliny storony c: '); readln(c); s1: =sqrt(2*a*a+2*b*b-c*c)/2; s2: =sqrt(2*a*a+2*c*c-b*b)/2; s3: =sqrt(2*c*c+2*b*b-a*a)/2; writeln('dliny median: |',s1: 2: 2,'|',s2: 2: 2,'|',s3: 2: 2,'|'); readln; end.

Const n=5; m=7; var a: array[1..n,1..m]of integer; i,j: integer; begin       for i: =1 to n do             begin                   for j: =1 to m do                         begin                             a[i,j]: =random(100);                             write(a[i,j]: 4);                         end;                   writeln;           end; writeln; for i: =1 to n do   begin     for j: =2 to m do         if j mod 2=0 then             write(a[i,j]: 4);       writeln;   end; end.    

Var     a: array[1..10000] of integer;     n,z,i: integer; begin randomize; write('n = '); readln(n); write('a(',n,'): '); for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(' ',a[i])       end; writeln; write('z = '); readln(z); i: =0; writeln; write('новая последовательность(',n,'): '); for n: = 1 to n do       begin       if a[n] > z then             begin             a[n]: =z;             i: =i+1             end;       write(' ',a[n])       end; writeln; writeln('количество замен: ',i); end.