Помогите с лабой по Паскалю

[funny]

Большое спасибо.

[puporev]

Поскольку в Паскале определен только натуральный логарифм, то попытка подставить формулы напрямую ни к чему не приведут. Нужно заданные логарифмы выразить через натуральный по формуле logA(B)=ln(A)/ln(B). Кроме того исключить значение А<=0.

uses crt;
var a,y:real;
begin
clrscr;
write('a=');
readln(a);
if a>0 then
writeln('log2(a)=',Ln(a)/ln(2):0:3,'  log7(sqrt(a))=',Ln(sqrt(a))/ln(7):0:3)
else writeln('Znachenie ne opredeleno!');
readln
end.

[funny]

Огромное спасибо