Модульная структура программ и использование подключаемых модулей (Паскаль)

Program Main;

Uses Modul;
// подключение модуля

Var mas: massiv;
// тип берётся из модуля

 i: integer;

 sr: real;

Begin

 writeln ('Введите массив: ');

 for i := 1 to N do

  readln (mas [i]);

 avrg (mas, sr);
 // вызываем процедуру из
 // модуля

 writeln ('Среднее арифметическое: ', sr)

End.

Unit Modul;

Interface
// интерфейсная часть

 const N = 5;

 type massiv = array [1..N] of integer;

 procedure avrg (mas: massiv; var sr: real);

Implementation
// исполняемая часть

procedure avrg (mas: massiv; var sr: real);

var i: integer;

Begin

 sr := 0;

 for i := 1 to N do

  sr := sr + mas [i];

 sr := sr / N

end; End.