Помогите написать программу на паскале Опции

[sathal]

Помогите написать программу на паскале!!!
Задан n треугольников координатами своих вершин на плоскости. Напечатать номер треугольника с наибольшей площадью (произведения катета). Вычисление сторон и площадей, организовать с помощью подпрограмм. PS. Определить гипотенузу как самую длинную сторону площади треугольника, как определить произведения 2 сторон катетов

[SviZ]

Ну начните с цикла, которым перебирается массив треугольников.

for i:=1 to lenArray do
begin
  ...вычисляем площадь S;
  if площадь больше максимальной then MaxS:=S;
end

После цикла в переменной MaxS будет максимальная площадь.