[pascal, principiante] calcolare logaritmo

[BananaBoat]

Salve a tutti e buon anno,
sto provando a programmare in turbo pascal e volevo scrivere un programma per calcolare logaritmi.
ecco quello che ho scritto finora:

program LOGARITMO;
uses crt;
var A,B,Y:real;
begin
	clrscr;
	writeln;
	writeln('LOGARITMO');
	writeln;
	write('Insersci la base del logaritmo: ');
	readln(A);
	writeln;
	write('Inserisci l''argomento del logaritmo: ');
	readln(B);
	:fagiano:
	writeln;
	writeln('Il logaritmo in base ',A,' di ',B,' e'' ',Y);
	writeln;
	write('Premere un tasto qualsiasi per uscire');
	repeat until keypressed;
end.

quindi manca la parte centrale, quella piu' importante
mi date una mano?
grazie