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

const    n = 10;var    a, b: array[1..n]of real;    i: integer;    s, maxs: real;begin    for i := 1 to n do    begin        a[i] := random(3, 10);        b[i] := random(3, 10);                if (maxs < a[i] * b[i]) then maxs := a[i] * b[i];    end;        for i := 1 to n do        if (maxs = a[i] * b[i]) then            writeln(i, ' Площадь=', a[i] * b[i] * 0.5, ' а=', a[i], ' b=', b[i]);    end.