Опять турбо паскаль)) Выдаёт ошибку в коде...

program z36;
var k,h,g,i:integer;
pr:extended;
begin
pr:=1;
for i:=2 to 7 do
pr:=pr*(1/ln(i)+sqrt(2*i));
writeln('proizvedenie a =',pr:5:5);
pr:=1;
for k:=1 to 3 do
for g:=2 to 4 do
for h:=2 to 5 do
pr:=pr*exp((g+h)/k);
writeln('proizvedenie b =',pr:5:5);
readln;
end.

Третья строка, ошибка "неизвестное имя "extended"", компилирую в PascalABC