Найдите ошибку пожалуйста:
program variant30
var n: integer;
begin
write('Введите n (n<=13): ');
readln(n);
var fact := 1;
for var i := 2 to n do
fact *= i;
writeln(n,'! = ',fact);
end.