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

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;