Описать функцию IsPrime(N) логического типа, возвращающую Тгuе, если целый параметр N (> 1) является простым числом, и Falsе в противном случае (число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество простых чисел в данном наборе — Pascal(Паскаль)

function isprime(n:integer):boolean;
var
 i: integer;
begin
 if (n = 2) or (n = 3) or (n = 5) or (n = 7) then begin
   isprime:= true;
   exit;
 end
 else begin
 for i:= 2 to 9 do
   if n mod i = 0 then begin
     isprime:= false;
     exit;
   end;
 end;
end;
var
 a:array[1..10] of integer;
 i,count:integer;
begin
 for i:= 1 to 10 do begin
   repeat
     readln(a[i]);
   until(a[i] > 1);
   if (isprime(a[i])) then inc(Count);
 end;
 writeln('kol-vo prostih chisel = ',count);
end.