Помогите решить эту задачу в Паскале. Пожалуйста

[Kazino96]

Пусть дан фрагмент программы. Опишите функцию Sum(A, SI, S2), вычисляющую сумму тех элементов матрицы А, номера строк и номера столбцов которых принадлежат соответственно непустым множествам S1 и S2 типа num.

Const
  n = 10;
Type
  number = 1..n;
  matrix = array [number, number] of real;
  num = set of number;
Var
  A : matrix;
  S1, S2 : num;

[Serge_Bliznykov]

вот вам тело функции Sum

begin
  summa := 0;
  for i:=1 to n do
    for j:=1 to n do
      if (i in S1) and (j in S2) then summa := summa + A[i,j];
  Sum := summa
end;