Вычислите произведение чисел от 1 до 5 используя различные варианты циклов

K:=1
For i:=1 to 5 do
k:=k*(k+1);

i:=1;
k:=1;
While i < 6 do
Begin
i:=I+1;
k:=k*(k+1)
End;