Определить n-й член последовательности - Turbo Pascal

Формулировка задачи:

Доброго времени суток) Пишу лабу с рекурсией, только вот не могу запустить, т.к. выдает ошибку на 3-й строке о том, что ожидается begin, без этой строки естественно не работает возведение в степень) пробовала запустить это в Paskal ABC, там работало но мне нужно в турбопаскале) Обясните пожалуйста в чем разница и что надо менять что бы работало в ТП) Задача: Отримати n-й член послідовності: (-1)n *(n+1))/n! . Что я нарешала:
program lr8;
uses CRT;
uses math;
var
a,n,i:integer;
function S(x:real; n:word):real;
begin
if n=0 then S:=1
       else S:= x*power(x,n-1);
end;
 
 
function Fact(num:integer):integer;
begin
if num=1 then Fact:=1
       else Fact:=num*Fact(num-1);
end;
 
begin
clrscr;
repeat begin
writeln('Enter n'); readln(n);
if(n<=0) then writeln('Error! Please,try again.');
        end;
        until n>0;
 
writeln(n,'-th member of the sequence = ',((S(-1,n)*(n+1))/(Fact(n))):5:3);
readln;
end.

Код к задаче: «Определить n-й член последовательности - Turbo Pascal»

textual
  function power(x: real; n: integer): real;
  var 
    i: integer;
    p: real;
  begin
    p:=1;
    for i:=1 to n do p:=p*x;
    power:=p; 
  end;

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ