В целочисленных массивах a и b содержатся длины катетов 10 прямоугольных

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 sigt;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]);
  Writeln
end.

Пример работы
Введите парами длины катетов 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