Задача с подключением модуля

[investr]

Создать модуль, в котором содержится функция или процедура, написанная в программе. Создать программу, демонстрирующую подключение модуля и использование подпрограммы.
Текст программы:

program ch;
var a,b,c,d,ABAMean,ACAMean,ADAMean,ABGMean,ACGMean,ADGMean: real;
procedure Mean (X,Y: real; var AMean,GMean: real);
begin
AMean:=(X+Y)/2;
GMean:=sqrt(X*Y);
end;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
Mean (a,b,ABAMean,ABGMean);
Mean (a,c,ACAMean,ACGMean);
Mean (a,d,ADAMean,ADGMean);
writeln('В паре ',a,',',b,' ср.арифм.=',ABAMean:5:2,', ср.геом.=',ABGMean:5:2);
writeln('В паре ',a,',',c,' ср.арифм.=',ACAMean:5:2,', ср.геом.=',ACGMean:5:2);
writeln('В паре ',a,',',d,' ср.арифм.=',ADAMean:5:2,', ср.геом.=',ADGMean:5:2);
end.

[Arigato]

Выносите в отдельный модуль это:

procedure Mean (X,Y: real; var AMean,GMean: real);
begin
AMean:=(X+Y)/2;
GMean:=sqrt(X*Y);
end;

Из основной программы ее удаляем. Подключаем модуль в разделе uses.