Решение задачи Proc 28

#include <stdio.h>
int isprime(int n){
    int i=1;
    while(n%++i!=0);
    return i==n;
}
 
int main(void)
{
    int i, n, res=0;
 
    for (i=1; i<=10; ++i){
        printf("N:");
        scanf("%i", &n);
        res+=isprime(n);
    }
    printf("Res: %i\n",res);
    return 0;
}

import random
import math

def IsPrime(N):
    if N % 2 == 0 and N > 2: 
        return False
    for i in range(3, int(math.sqrt(N)) + 1, 2):
        if N % i == 0:
            return False
    return True

s = 0
for i in range(0,10):
    x = random.randrange(1,1000)
    #print(x,end="; ")
    s += int(IsPrime(x))
    print(x,":",IsPrime(x))

print("\nAmount of IsPrime:",s)
									

program Proc28;
 
Function IsPrime(N:Integer):Boolean;
var i:integer;
begin
  i:=1;
  IsPrime:=True;
  while (i<N/2) do
    begin
      Inc(i);
      if N mod i = 0 then
       begin
        I:=N;
        IsPrime:=False;
       end;
    end;
end;
 
var
  i,N,Res:Integer;
 
begin
 Res:=0;
 for i:=1 to 10 do
  begin
   Write('N :');
   Readln(N);
 
   if IsPrime(N) then Inc(Res);
  end;
   Writeln(Res);
end.