Tudnátok segíteni pascal programozásban?

Én vagyok az az állat, mert ilyen jó szívem van:

program exponencialis;

var i, kitevo, kozel : integer;

expo : real;

function polinom(const szam, kozelites : integer ) : real;

function faktor(const szam1 : integer) : real;

var i: integer;

begin

faktor := 1;

for i := 1 to szam1 do faktor := faktor * i;

WriteLn('A faktorialis erteke: ', faktor);

end;

function hatvany(const szam2, meddig : integer) : real;

var i : integer;

begin

hatvany := 1;

for i:= 1 to meddig do hatvany := hatvany * szam2;

WriteLn('A hatvany erteke: ', hatvany);

end;

begin

polinom := hatvany(szam, kozelites) / faktor(kozelites);

WriteLn('A polinom erteke: ', polinom);

end;

begin

expo := 1;

Write('Kerem a kitevot: ');

ReadLn(kitevo);

Write('Kerem a kozelitest: ');

ReadLn(kozel);

for i := 1 to kozel do

begin

WriteLn(i,'. lepes');

expo := expo + polinom(kitevo, i);

WriteLn('A polinomok halmozott osszege: ', expo);

ReadLn;

end;

Write('Vege ! ');

ReadLn;

end.

OFF

;)

ON

Mert nem tudtad megoldani. A tanárral megbeszélheted, hogy ne adjon olyan feladatot, amire nem készített fel, de egyébként az kell teljesítened, amit ő elvár -- nem, mintha természetesnek találnám, hogy eddig ismeretlen fogalmak alkalmazását követelje meg tőletek. De lehet, hogy ő a tanítottakon alapuló másik megoldást képzelt el.

Attól meg, hogy más sem okosabb, te még nem feltétlenül leszel elégséges. Lehet, hogy ők is buknak...