«НАЧАЛО» ожидается, но «ИСПОЛЬЗУЕТСЯ» найдено - PullRequest
0 голосов
/ 05 сентября 2018

Привет, я сделал эти строки кода на 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.

но когда я запускаю его, он говорит, что «НАЧАЛО», но «ИСПОЛЬЗУЕТСЯ», что я должен сделать, чтобы это исправить? если я изменю «НАЧАТЬ» поверх «ИСПОЛЬЗОВАНИЯ», будет еще одна ошибка

1 Ответ

0 голосов
/ 05 сентября 2018

Предложение uses должно появляться после (необязательного) оператора program, но перед любым другим оператором. Переместите предложение uses в начало кода, сразу после оператора program, если оно действительно есть.

...