Program a16_82;
uses crt;
var a:array[1..100] of word;
      kp,n:word;
      i:integer;
function simple(x:word):boolean;
var d:word;
begin
   d:=2;
   while (x mod d<>0) and (d<=sqrt(x)) do
   d:=d+1;
   simple:=(d>sqrt(x))
End;
BEGIN
clrscr;
write('Введите к-во элементов массива (n<100) и их заначения ');
readln(n);
for i:=1 to n do readln(a[i]);
kp:=0;
for i:=1 to n do
   if simple(a[i]) then kp:=kp+1;
   if kp=n-kp then write('Простых и составных чисел в массиве поровну')
     else if kp>n-kp then write('Простых чисел больше')
     else write('Составных чисел больше');
END.