Как написать программу для pascal abc которая считает факториал числа который вводит пользователь

program zz1;

var n:integer; / / задаем переменные целого типа

i:real;

function fact (x:integer) : integer; / / описываем функцию для вычисления факториала

var v, p:integer; / / описываем локальные переменные

begin

p:=1;

for v:=1 to x do

begin

p:=p*v;

end;

fact:=p; / / присваиваем результат

end;

begin

write (' введите число n '); / / вводим с клавиатуры число

read (n);

i:=fact (n); / / вычисляем факториал с использованием функции вычисления факториала

write (' факториал заданного числа = ', i); / / выводим ответ

end.