Модуль для нахождения логарифма (отдельным файлом валяется)

unit LogarifmModule;
interface
function Loga(a: real; o: real): real;
implementation
function Loga: real;
var
  p: real;
begin
  p := logN(a, o);
  loga := p;
end;
begin
end.

Сама программа:

program ВычислениеЛогарифма;
uses crt, LogarifmModule;
var x,y,b,z:real;
begin;
clrscr;
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
writeln('Введите b');
readln(b);
z:=(loga(2,x)+loga(b,y))/loga((b+2),(x+y));
writeln('z=',z);
readkey;
end.