Вычислить значение выражения

uses crt;
function F(a,b,c,x,y,z:real):real;
begin
F:=ln(x+2)/ln(a)+sqrt(abs(ln(y+2)/ln(b)/(ln(z+2)/ln(c))));
end;
var a,b,c,x,y,z:real;
begin
writeln('Введите значения оснований логарифмов a,b,c:');
read(a,b,c);
writeln('Введите значения x,y,z:');
readln(x,y,z);
if(a<=0)or(a=1)or(b<=0)or(b=1)or(c<=0)or(c=1)
or(x<=-2)or(y<=-2)or(z<=-2)or(ln(z+2)=0) then
write('Значение S не определено')
else write('S=',F(a,b,c,x,y,z):0:2);
end.

uses crt;
procedure F(a,b,c,x,y,z:real;var s:real);
begin
if(a<=0)or(a=1)or(b<=0)or(b=1)or(c<=0)or(c=1)
or(x<=-2)or(y<=-2)or(z<=-2)or(ln(z+2)=0) then
write('Значение S не определено')
else
 begin
  s:=ln(x+2)/ln(a)+sqrt(abs(ln(y+2)/ln(b)/(ln(z+2)/ln(c))));
  write('S=',s:0:2);
 end;
end;
var a,b,c,x,y,z,s:real;
begin
writeln('Введите значения оснований логарифмов a,b,c:');
read(a,b,c);
writeln('Введите значения x,y,z:');
readln(x,y,z);
F(a,b,c,x,y,z,s);
end.