Хелп плиз . 112 заранее спасибо

Question

Хелп плиз . 112 заранее спасибо

---

Comments

уже не надо сори

Answer 1

var
  a: array [1..6] of System.Tuple;
  b: real;

begin
  a[1] := new System.Tuple(4.5, 3.5);
  a[2] := new System.Tuple(3, 2.5);
  a[3] := new System.Tuple(4.5, 4.5);
  a[4] := new System.Tuple(5.5, 3.5);
  a[5] := new System.Tuple(2.5, 3.5);
  a[6] := new System.Tuple(6.5, 4.5);
  for i: integer := 1 to 6 do
  begin
    writeln('S', i, ' = ', a[i].item1 * a[i].item2);
    b += a[i].item1 * a[i].item2;
  end;
  writeln('S = ', b);
end.