预期为“ BEGIN”，但找到“ USES”

Question

嗨，我已经在freepascal上完成了以下代码行：

type bigNum=string;
function bigMod(a:bigNum;b:longint):longint;
var i,hold:longint;
begin
hold:=0;
for i:=1 to length(a) do
    hold:=(ord(a[i])-48+hold*10)mod b;
    bigMod:=hold;
end;
uses sysutils;
var a,i,n:longint;
begin
readln(n);
a:=1;
for i:=1 to n-2 do
    a:=a*2;
IntToStr(a);
writeln(bigMod(bigMod(a,n),1000000000));
end.

但是当我运行它时，它说应该是'BEGIN'，但是却找到了'USES'， 我该怎么解决？如果我在“ USES”上更改“ BEGIN”，将是另一个错误

Answer 1

uses子句必须出现在（可选）program语句之后，但在其他任何语句之前。如果确实有一个语句，将uses子句移到代码顶部，紧接着program语句之后。