求100以内的所有素数之和（用函数实现）

//C语言实现
//函数isPrime判断参数num是否是素数
int isPrime(int num) {
int i;
for(i=2;i<=i/2;k++)
{
if(num%i==0) {
return 0;//num不是素数
}
}
return 1; //num是素数
}
//main函数，进行测试
void main(){
int i;
int primeSum=0;
for(i=2;i<=100;i++) {
if(1==isPrime(i)) {
primeSum+=i;
}
}
printf("\n100以内的所有素数之和为：%d\n",primeSum);
}

program ex1;
var i,s:longint;
function sushu(x:longint):boolean;
var i:longint;
begin
sushu:=true;
for i:=2 to x-1 do
if x mod i=0 then sushu:=false;
end;
begin
s:=0;
for i:=1 to 100 do
if sushu(i) then s:=s+i;
writeln(s);
end.