Найдите ошибку : 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.

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.