написать программу на паскале

[Юлия237]

Здравствуйте! Помогите пожалуйста написать программу на паскале.Нужно найти две строки таблицы, скалярное произведение которых максимально.

Требования к задаче во вложении)

[Akcentbek]

int t = 0,a = 0,b = 0;
for(int j = 0;j < (n - 1);j++)
{
 for(int k = j + 1;k < n;k++)
 { 
   int sum = 0;
   for(int i = 0;i < m;i++)
     sum += A[j][i]*A[k][i];
   if(t < sum){
    t = sum;
    a = j;
    b = k;
   }
 }
}

На си++ )) в а ,b - номера строк \ t - проихведение этих строк
(первая попавшаяся пара с такои характеристикой)

Надеюсь помог