s=loga(x+2)+sqrt(abs(logb(y+2))/(logc(z+2))) в pascal помогите написать процедуру

Program Zadanie;
var
x, y, z: integer;
procedure P(a,b,c: real);
var
s:real;
begin
s:=ln(a+2)+sqrt(abs(ln(b+2))/(ln(c+2)));
writeln(s);
end;
begin
writeln('Введите x, y, z');
readln (x, y, z);
P(x, y, z);
end.

procedure log(a,b:real);Real;
begin
log:=ln(b+2)/ln(a);
end;
в программе
s:=log(a,x) + sqrt(abs(log(b,y))/log(c,z);

program dom;
uses graphABC;
begin
setpenwidth (2);
rectangle (50, 200, 350, 500);
rectangle (350, 200, 850, 500);
line (50, 200, 200, 50);
line (200,50, 350, 200);
line (200, 50, 700, 50);
line (700,50, 850, 200);
rectangle (150,300,250, 400);
line ( 200, 300, 200, 400);
line ( 200, 350, 250, 350);
rectangle ( 450,300, 550, 400);
rectangle ( 650, 300, 750, 400);
line (500, 300, 500, 400);
line (500, 350, 550, 350);
line (700, 300, 700, 400);
line (700, 350, 750, 350);
circle (1200, 130, 60);
rectangle ( 450, 25, 500,150);
circle (200, 125, 30);
line (0, 500, 50, 500);
line (850, 500, 1500, 500);
line (900, 500, 950, 1000);
line (950, 500, 1000, 1000);
line (1000, 500, 1050, 1000);
line (1050, 500, 1100, 1000);
line (1100, 500, 1150, 1000);
line (1150, 500, 1200, 1000);
line (1200, 500, 1250, 1000);
line (1250, 500, 1300, 1000);
floodfill (1249, 501, clblack);
floodfill (1149, 501, clblack);
floodfill (1049, 501, clblack);
floodfill (949, 501, clblack);
floodfill (360, 205, clred);
floodfill (51, 209, clgreen);
floodfill (360, 51, clsilver);
floodfill (150, 150, clsilver);
floodfill (451, 51, clblack);
line (0, 350, 50, 350);
line (850, 350, 10000, 350);
line (0, 350, 25, 325);
line (25, 325, 50, 350);
line(850, 350, 875, 325);
line ( 875, 325, 900, 350);
end.