program trochoi;
uses crt;
var A:array[1..100] of integer;
B:array[1..100] boolean;
n,i,t,dd:byte;
begin
clrscr;
ramdomize;
n:=random(49)+1;
writeln('So luot choi la: ',n);
t:=0;
for i:=1 to n do
begin
A[i]:=randomize(1000);
write('Nhap du doan: ') readln(dd);
if ((A[i] mod 2=0) and (dd=0)) or ((A[i] mod 2=1) and (dd=1)) then
begin
t:=t+1;
B[i]:=true;
end
else B[i]:=false;
end;
writeln('So lan doan trung la: ',t);
writeln('Ket qua theo thu tu la: ');
for i:=1 to n do
write(B[i],' ');
writeln;
if t/n>=0.8 then write('Rat may man')
else if t/n>=0.65 then write('May man')
else if t/n>=0.5 then write('Binh thuong')
else write('Khong may man');
readln;
end.
