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

Program n1;Uses CRT;Const n=10;Var a,b: array[1..n] of integer; i,a1,b1: integer; s,s1: real;beginClrScr;Randomize;For i:=1 to n do begin a[i]:=random(20); b[i]:=random(20); end;For i:=1 to n do begin s:=a[i]*b[i]/2; if s>s1 then begin s1:=s; a1:=a[i]; b1:=b[i]; end; end;Writeln('Naibolshya ploshad ',s,' y treugolnika s katetami ',a1,' i ',b1 );readlnend.