Pascalban faktoriális program segítség?

Nem vagyok annyira otthon Pascalban, de ezeket találtam:

FOR i := 0 TO n DO

BEGIN

...

END;

While-lal így néz ki:

i := 0

WHILE i < n DO

BEGIN

...

i := i + 1;

END;

(a ... részek megegyeznek)

---

Különbségek:

- FOR-nál nem kell külön inicializálni (kezdőértéket adni neki) a ciklusváltozót, a WHILE-nál kell

- FOR-nál nem kell a ciklusmagon belül hozzányúlni a ciklusváltozóhoz (növelni pl.), a WHILE-nál kell

Faktoriálist emlegetel amikor a ciklusok sem mennek :)

program fakt;

const faktor = 15;

var fakfor, fakwhile: int64;

i : byte;

begin

fakfor := 1;

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

fakwhile := 1;

i := 1;

while i < faktor + 1 do

begin

fakwhile := fakwhile * i;

Inc(i);

end;

WriteLn('For ciklusssal: ', fakfor);

WriteLn('While ciklusssal: ', fakwhile);

ReadLn;

end.