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.