Zadanie w Pacalu

Witajcie
Nauczyciel od Informatyki zadał nam zadanie do domciu i głowie sie z nim już kilka dni i nic mi nie wychodzi, jesli by ktoś mógł na nie zerknąć i jeśli mozę je zrobić to była bym wdzięczna. Tylko prosz nie piszcie że sama powinnam je zrobic ponieważ jestem początkująca i dopiero się ucze, a jest ono dla mnie bardzo ważne. Oto to zadanie:

Zad.
Program, który podaje wartość dla poniższych wyrażeń dla n naturalnego:

Sn = 13 + 33 + 53 + ?+ (n-2)3 + n3 dla n nieparzystego
Sn = 23 + 43 + 63 + ?+ (n-2)3 + n3 dla n parzystego

W programie zastosuj funkcję.

Function sumcubes(n: longint): longint;

Dziękuje i Papa

Ten twój nauczyciel informy musi miec osobowośc mocno autorytarną, skoro narzuca nazwy funkcji. Nie ma przez przypadak jakichs kompleksów?

Function sumcubes(n: longint): longint;
var i:longint;
begin
  i:=0;
  while(n>0)do
    begin
      inc(i,n*n*n);
      dec(n,2);
    end;
  sumcubes:=i;
end;

var n:longint;
begin
  repeat
    write(^m^j'podaj n (0 i mniejsze kończą) : ');
    readln(n);
    if(n>0)writeln('S(n=',n,') = ',sumcubes(n));
  until n<=0;
end.

// program nie ma zabezpieczenia, wiec jesli zamiast liczby wprowadzisz literki, to wyskoczy błąd

// do postu ponizej: mają byc potęgi, oki sa potęgi (poprawione)

// ^mj fajnie wygląda, nie? - ŁF

// ciekawiej na pewno niż #13#10, szybciej sie pisze i mniej ludzi wie o co cho ;]

Oj przepraszam ale mały błąd wtargnoł do zadania, ponieważ je wkleiłam z Worda. Tam gdzie są liczbt 3, ma być potęga 3(czyli do sześcianu). Dziękuje za chęci.
papa jeszce raz.