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.