Решить задачу в паскаль с помощью функций. Даны 3 равносторонних треугольников со сторонами a, b, c. Напечатать номер треугольника с наибольшей площадью. Вычисление площадей организовать с
помощью функций, воспользовавшись формулой Герона.

Function ST(a,b,c:real):real;
var
  p:real;
begin
  p:=(a+b+c)/2;
  ST:=sqrt(p*(p-a)*(p-b)*(p-c))
end;

var
  a,s:array[1..3] of real;
  i,k:integer;
begin
  Write(Введите длину стороны каждого треугольника: );
  for i:=1 to 3 do begin
    Read(a[i]);
    s[i]:=ST(a[i],a[i],a[i]);
    end;
  if s[1]gt;s[2] then k:=1 else k:=2;
  if s[3]gt;s[k] then k:=3;
  Writeln(Треугольник номер ,k, имеет наибольшую площадь)
end.

Пример
Введите длину стороны каждого треугольника: 6 7.3 4.18
Треугольник номер 2 имеет наибольшую площадь