Program test;
Uses crt;
Label bye;
Var gi:string[40];
    f:text;
    VsegoVopr:integer;
    PravOtv:integer;
    nOtv:integer;
    prav:integer;
    Otv:integer;
    st:string;
    p:integer;
    i:integer;
begin
   if ParamCount=0 then
begin
   clrscr;
   writeln ('ЌҐ § ¤ ­ д ©« ў®Їа®б®ў вҐбв !');
   writeln ('Љ®¬ ­¤­ п бва®Є : test c:\Work\text.txt');
   goto bye;
end;
gi:=ParamStr(1);
Assign(f,'c:\Work\text.txt');
{$I-}
Reset(f);
{$I+}
   if IOResult <> 0 then
begin
   writeln ('ЌҐ ­ ©¤Ґ­ д ©« вҐбв !');
   goto bye;
end;
writeln ('‘Ґ©з б ‚ ¬ Ўг¤Ґв ЇаҐ¤«®¦Ґ­ вҐбв.');
writeln ('Љ Є ¦¤®¬г ў®Їа®бг ¤ Ґвбп ­ҐбЄ®«мЄ® ў аЁ ­в®ў','®вўҐв .');
writeln ('‚л ¤®«¦­л ўўҐбвЁ ­®¬Ґа Їа ўЁ«м­®Ј® ®вўҐв ','Ё ­ ¦ вм <Enter>');
writeln;
writeln ('“¤ зЁ!„«п ­ з «  вҐбвЁа®ў ­Ёп ­ ¦¬ЁвҐ <Enter>');
Clrscr;
TextBackGround(Blue);
VsegoVopr:=0;
Prav:=0;
while not EOF(f) do
begin
  VsegoVopr:=VsegoVopr+1;
  readln(f,st);
  TextColor(White);
  writeln(st);
  readln(f,nOtv,Prav);
  TextColor(LightGray);
for i:=1 to nOtv do
begin
  readln (f,st);
  writeln (i,'. ',st);
end;
writeln;
write('‚ и ўлЎ®а ->');
readln(Otv);
if Otv=Prav then PravOtv:=PravOtv+1;
writeln;
end;
p:=Round((PravOtv/VsegoVopr)*100);
write('‚ и  ®жҐ­Є  ');
case p of
  100:writeln('Ћв«Ёз­®!');
  80..99:writeln('•®а®и®.');
  60..79:writeln('“¤®ў«Ґвў®аЁвҐ«м­®.');
  else writeln('Џ«®е®!');
end;
bye:
  write('„«п § ўҐа襭Ёп а Ў®вл ­ ¦¬ЁвҐ <Enter>');
  readln;
end.

Не задан файл вопросов теста!');
   writeln ('Командная строка : test c:/Work/text.txt'
Для завершения работы нажмите <Enter>