{* Задача 403 *}

Unit ZADACH403;
Interface
Implementation
Begin
 writeln('Составить программу содержащую функцию вычисляющую скалярное произведение, равное

');
End.

Program zadach403;

Uses zadach403.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Type {* Используемые типы *}
  mas = Array [1..10, 1..2] Of integer;
Var {* Объявление переменных *}
  a                  : mas;
  i                  : integer;
  otvet              : longint;
Function Proizv (a : mas);
Var {* Объявление переменных *}
  pr  : longint;
  otv : longint;
Begin
  otv := 0;
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
  Begin
    pr := a[i, 1] * a[i, 2];
    otv := otv + pr;
    Proizv := otv;
  End;
  
End;
Begin
  ClrScr; {* Стираем всё с экрана *}
  WriteLn(Введите данные : ');
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
  Begin
    GoToXY(1, i + 1);
    Write('x', i, ': ');
    GoToXY(5, i + 1);
    ReadLn(a[i, 1]);
    GoToXY(10, i + 1);
    Write('| y', i, ': ');
    GoToXY(16, i + 1);
    ReadLn(a[i, 2]);
  End;
  otvet := Proizv(a);
  WriteLn; {* Пустая строка *}
  WriteLn('Результат вычислений: ', otvet);
  ReadLn; {* Ждем нажатия Enter *}
End.