delphi - 帕斯卡中的素数计算

Question

我在这里有一个代码，它告诉你一个数字在帕斯卡中是否是素数，但它一直显示这个错误，我在第 20 行缺少括号，但我认为不需要更多的括号。这是错误：

Compiling pascal.pas
pascal.pas(20,13) Fatal: Syntax error, ")" expected but "ordinal const" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode

这是我的代码：

program PrimeNumbers;

var 
input: integer;
finalResult: integer;

function checkPrime(numb :integer): integer;
var
    result, i: integer;

    
begin
    if(numb = 1)then
        result := 1;
    
    i:= 2;
    
    while i < numb do
        begin
            if(numb % i = 0)then
                result:= 1;
        
            i =: i +1; 
        end
    result:= 0;
end

begin
    writeln('Giev me a number and I will tell u if its a prime or not');
    readln(input);
    finalResult:= checkPrime(input);
    
    if(finalResult = 1)then
        writeln('Your number is not a prime');
    else
        writeln('Your number is a prime number');
end.

标签： delphifreepascalpascalscript