ПРОШУ ПОМОГИТЕ 7 класс

Question

ПРОШУ ПОМОГИТЕ 7 класс

---

Answer 1

Program qq;
Var n, d : integer;
Begin
Write('Введите число ');
Read(n);
d:=1;
While n>0 do
Begin
d:=d*(n);
n:=n-1;
end;
Write('Факториал n =  ', d);
end.