Решить задачу в паскаль с помощью функций. Даны 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]>s[2] then k:=1 else k:=2;  if s[3]>s[k] then k:=3;  Writeln('Треугольник номер ',k,' имеет наибольшую площадь')end.ПримерВведите длину стороны каждого треугольника: 6 7.3 4.18Треугольник номер 2 имеет наибольшую площадь