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

PS сначала количество элементов, а потом вводим их ПОПАРНО

vara, b:array[1..10000] of integer;n, count, i, ianswer, cnt: integer;BeginReadln(n);//количество парFor i:= 1 to n dobegin Read(a[i]);//читаем первый катетReadln(b[i]);//читаем второй катетend;ianswer:= 1;count:= 1;For i:= 2 to n dobegin  if a[i]*b[i] = a[ianswer]*b[ianswer] then inc(count);  if a[i]*b[i] >  a[ianswer]*b[ianswer] then  begin  count:= 1;  ianswer:=i;  end;end;if count = 1 then beginWriteln('Треугольник с наибольшей площадью равной ', a[ianswer]*b[ianswer],'и, имеет размеры катетов ', a[ianswer], ' и ', b[ianswer], '. Номер треуголника: ', ianswer);halt;end;Writeln('Всего ', count, ' Треугольника(-ов) с максимальной площадью равной ', a[ianswer]*b[ianswer]);cnt:= 1;For i:= 1 to n doif a[ianswer]*b[ianswer] = a[i] * b[i] then beginWriteln(cnt, '-й треугольник имеет катеты ',a[i], ' и ', b[i], '. Номер этого треугольника:', i);inc(cnt);end;end.