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

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

 

вроде так

program pr; uses crt; var n,m: array[1..15] of integer;       i,knp,kmp,kno,kmo: integer; beginknp: =0; kmp: =0; kno: =0; kmo: =0; writeln('mas(n)'); for i: =1 to 15 do begin n[i]: =random(36)-15; write(n[i],'; ') end; writeln; writeln('mas(m)'); for i: =1 to 15 do begin m[i]: =random(36)-15; write(m[i],'; ') end; for i: =1 to 15 do begin                                  if n[i]> =0 then knp: =knp+1                                                        else kno: =kno+1;                                   if m[i]> =0 then kmp: =kmp+1                                                        else kmo: =kmo+1;                                   end; writeln; writeln('кол-во положительных массива n=',knp); writeln('кол-во отрицательных массива n=',kno); writeln('кол-во положительных массива m=',kmp); writeln('кол-во отрицательных массива m=',kmo); readln; end.

1  var a: array[1..10000000] of integer; sk: real; i,n: integer; begin write('размер массива - '); readln(n); write('заполните массив - '); for i: =1 to n do begin read(a[i]); end; for i: =1 to n do begin write(a[i]+5,' '); end; writeln(); for i: =1 to n do sk: =sk+sqrt(a[i]); write('сумма квадратов ',sk); end.2 vara: array[1..12] of real; max,min: real; i: integer; beginwrite('введите сред. t за каждый месяц - '); for i: =1 to 12 dobeginread(a[i]); end; max: =a[1];   for i: =1 to 12 do  beginif a[i]> max then max: =a[i]; end; min: =a[1];   for i: =1 to 12 do  beginif a[i]< min then min: =a[i]; end; writeln('максимальная t за год - ',max,' градусов. минимальная t за год - ',min,' градусов.'); end.3 vara: array[1..12] of real; sum: real; i: integer; beginwrite('введите учеников - '); for i: =1 to 12 dobeginread(a[i]); end; for i: =1 to 12 dobeginsum: =sum+a[i]; end; sum: =sum/12; writeln('средний уровень успеваемости - ',sum); end.