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

Var a, b: array[1..10000] of integer; n, count, i, ianswer, cnt: integer; begin readln(n); //количество пар for i: = 1 to n do begin read(a[i]); //читаем первый катет readln(b[i]); //читаем второй катет end; ianswer: = 1; count: = 1; for i: = 2 to n do begin   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 begin writeln('треугольник с наибольшей площадью равной ', a[ianswer]*b[ianswer], 'и, имеет размеры катетов ', a[ianswer], ' и ', b[ianswer], '. номер треуголника: ', ianswer); halt; end; writeln('всего ', count, ' треугольника(-ов) с максимальной площадью равной ', a[ianswer]*b[ianswer]); cnt: = 1; for i: = 1 to n do if a[ianswer]*b[ianswer] = a[i] * b[i] then begin writeln(cnt, '-й треугольник имеет катеты ',a[i], ' и ', b[i], '. номер этого треугольника: ', i); inc(cnt); end; end.

Смешно. s= x*y (площадь) p=2x + 2y (периметр)