Question

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

Answer 1

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

begin
  a[1] := new System.Tuple<real, real>(4.5, 3.5);
  a[2] := new System.Tuple<real, real>(3, 2.5);
  a[3] := new System.Tuple<real, real>(4.5, 4.5);
  a[4] := new System.Tuple<real, real>(5.5, 3.5);
  a[5] := new System.Tuple<real, real>(2.5, 3.5);
  a[6] := new System.Tuple<real, real>(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.