Вывести на экран значение n!, n – целое число, вводимое с клавиатуры.

немного не так. не использую var , nf:longin; writeln(nf).я так поняла что здесь надо использовать setlocale iostream match, но как это все связать не знаю.

var    i, n: integer;    nf: longint;begin    readln(n);    nf := 1;    for i := 1 to n do        nf := nf * i;    writeln(nf);end.