Вычислите 5! (пять факториал) и перестройте в цикл с предусловием, пожалуйста!

program factorial;var i,F:integer;beginF:=1;i:=0;while i<5 dobegin;i:=i+1;F:=F*i; end;writeln ('F=', F);end.