Нужно! нужно написать программу для нахождения факториала числа n тремя с цикла с предусловием, цикла с постусловием и цикла с параметром)

i, n: integer;
n := 5;
t := 1;
for i:=2 to n do t = t * i;

t := 1;
i := 1;
while i <= n do begin
         t := t * i;
         i := i + 1
end;

t := 1;
i := 1;
repeat
         t := t * i;
        i := i + 1
until i > n;