ПАСКАЛЬ ABC!!!
Ввести массив на 15 чисел. Сумму 5 и 7 элементов массива принять за длину прямоугольника. Сумму 8 и последнего элементов принять за ширину прямоугольника. Вычислить периметр и площадь прямоугольника, вывести их на экран.

площадь равзе так находится?

разве*

you failed, спутал с прямоугольным треугольником :3

Площад прямоугольника - ширина на высоту, что не так? Если хочешь другое подсчитать, то измени последнюю формулу и всё

var  a : array[1..15] of integer;  i, l, d : integer;begin  for i := 1 to 15 do    begin      writeln(i ,' число');      read(a[i]);    end;  l := a[5] + a[7];  d := a[8] + a[15];  writeln('Периметр: ',(l + d) * 2, ' Площадь: ', l *d );end;