Написать программу в PascalABC.NET
Нахождения площади и периметра треугольника
Данные о сторонах вводятся с клавиатуры
Буду очень благодарна

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=30;

 Var
 ar:array[1..n] of integer;
 i,b:integer;
 sr:real;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(0,23);
   write(ar[i]:4);
   sr:=sr+ar[i];
  end;
 writeln;
 sr:=sr/n;
 writeln('Sr=',sr);
 write('Enter value B:');
 readln(b);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]-b;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
  22   7  10  13   1   4   5   6   4  21   8  20  17  15  23   5  19  18  20  19   5  11  14   0  11   4   3  23  23  17
Sr=12.2666666666667
Enter value B:3
Final array:
    19     4     7    10    -2     1     2     3     1    18     5    17    14    12    20     2    16    15    17    16     2     8    11    -3     8     1     0    20    20    14

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=15;

 Var
 ar:array[1..n] of integer;
 i,sum:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(5,15);
   write(ar[i]:4);
   if i<=6 then
   sum:=sum+ar[i];
  end;
 writeln;
 writeln('Sum=',sum);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]*7;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
   9  15   5  12  13   6  11   7   6  14  13   6   6  10  11
Sum=60
Final array: 
   63   105    35    84    91    42    77    49    42    98    91    42    42    70    77