Составить программу нахождения n факториал (n! ) информатика, 9 класс, операторы ветвления !

Var n,i:integer; Begin Read(n); I:=0; While n>0 do begin I:=i*n; Dec(n); End; Writeln(i); End.