Составить программу для нахождения произведение чисел от 1 до n. Для циклов: 1)for 2)while 3)until

//Pascalvar  a, p:  word;  i, n: integer;begin  readln(n);  //цикл for  p := 1;  for i := 1 to n do     p := p * i;  writeln(p);    //цикл while  i := 1;  p := 1;  while i <= n do   begin    p := p * i;    i := i + 1;  end;  writeln(p);    //цикл repeat  i := 1;  p := 1;  repeat    p := p * i;    i := i + 1;  until i > n;  writeln(p);end.