program bai6;
uses crt;
type cauhoi=record
        quest,a,b,c,d,right_ans,ans:string;
            end;
var ch:array[1..5] of cauhoi;
    i,ketqua:integer;
begin
    clrscr;
    ketqua:=0;
    for i:=1 to 5 do
        with ch[i] do
            begin
                write('Nhap cau hoi [',i,']: '); readln(quest);
                write('Nhap dap an A: '); readln(a);
                write('Nhap dap an B: '); readln(b);
                write('Nhap dap an C: '); readln(c);
                write('Nhap dap an D: '); readln(d);
                write('Dap an dung: '); readln(right_ans);
            end;
    for i:=1 to 5 do
        with ch[i] do
            begin
                writeln('Cau hoi ',i,': ',quest);
                writeln('A: ',a);
                writeln('B: ',b);
                writeln('C: ',c);
                writeln('D: ',d);
                write('Dap an: '); readln(ans);
                if (ans = right_ans) then ketqua:=ketqua+1;
            end;
    writeln('So cau dung: ',ketqua,'/5');
    readln;
end.