В целочисленных массивах a и b содержатся длины катетов десяти прямоугольных треугольников: a[i] - длина первого катета; b[i] - длина второго катета i-го треугольника. Найдите треугольник с наибольшей площадью. Выведите его номер, длины катетов и площадь. Предусмотрите случай,когда таких треугольников несколько.

const  n=10;var  a,b:array[1..n] of integer;  i,si,smax:integer;begin  Writeln('Введите парами длины катетов ',n,' треугольников');  smax:=0;  for i:=1 to n do begin    Read(a[i],b[i]);    si:=a[i]*b[i]; { пополам разделим потом максимальное }    if si>smax then smax:=si    end;  Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':');  for i:=1 to n do    if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]);  Writelnend.Пример работыВведите парами длины катетов 10 треугольников7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8Треугольник(и) с максимальной площадью, равной 90:№2: 18x10№6: 15x12№8: 9x20