Найди ошибку 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 поставьте точку с запятой ;