program test;
uses crt;
var i,m,tr,fl,c,count,o: integer;
tmp,name: string;
word: array [1..1024] of string;
trans: array [1..1024] of string;
cc: array [1..2048] of integer;
f: text;
h: boolean;
cou: integer;
begin
clrscr();
cou:=1;
//writeln('имя файла');
//readln(name);
name:='w.txt';
assign(f,name);
reset(f);
readln(f,count);
for i:=1 to count do
    begin
    m:=0;
    readln(f,tmp);
    for c:=1 to length(tmp) do
        begin
        if (tmp[c]='|') then begin m:=1; continue; end;
        if (tmp[c]=' ') then continue;
        if (m=1) then word[i]:=word[i]+tmp[c]
        else trans[i]:=trans[i]+tmp[c];
        end;
    end;
close(f);

//writeln('Все слова считаны, количество спрашиваемых слов:');
//readln(m);
writeln('Все слова считаны');
m:=10;
clrscr();
writeln('Начинаем');
writeln;
randomize;
for i:=1 to m do
    begin
    o:=random(count);
    o:=o+1;
    cc[cou]:=o;
    cou:=cou+1;
    for c:=1 to cou-1 do
        while (cc[c]=o) do begin o:=random(count); o:=o+1; end;
    write(word[o],', перевод: ');
    readln(tmp);
    if (tmp=trans[o]) then begin tr:=tr+1; writeln('[верно]'); end
    else begin fl:=fl+1; writeln('[неверно, ',trans[o],']'); end;
    end;
    
if (m=10) then o:=tr;
//if (m>10) then o:=round(tr/(count/10));
//if (m<10) then o:=round(tr*(10/count));
writeln('Ваши результаты:');
writeln('Правильно: ',tr,', Неправильно: ',fl,'.');
case tr of
10: writeln('ЗАЕБИСЬ,ЧЁТКО');
9: writeln('ПОЧТИ ЗАЕБСИЬ');
8: writeln('НОРМУЛЬ,ЧЁ');
7: writeln('ХУЁВО,НО ПОЙДЁТ');
6: writeln('Э БЛЯ, ДУМАЙ ТРОХАН');
5: writeln('ПИЗДА РУЛЮ');
4: writeln('НУ ТЫ БЛЯ ИНДЕЕЦ');
3: writeln('МОЗГИ НННАДА?');
2: writeln('ЛОХ, СЪЕБИ ОТ КОМПА');
1: writeln('IQ -1');
0: writeln('Застррелись блядь, дебила кусок...');
end;
writeln;
end.