uses crt;
 Var
 f:text;
 s:string;
 ch:char;
 i,j,sum,e,t: integer;

 Begin clrscr;

 Assign (f,'d:\lab\fon.txt');
 Reset(f);

 Sum:=0;
 i:=0;

 While (not(eof(f))) do begin
   clrscr;
   inc(i);
   Writeln ('Вопрос N ', i);
   ReadLn (f,s);
   Writeln (s);
   Writeln ('Варианты ответов');
    for j:=1 to 4 do
     begin
      Write(j,' ');
      ReadLn(f,s);
      Writeln(s);
     end;
     Writeln;
    repeat
    ch:=ReadKey;
    Until ch in ['1'..'4'];

     for j:=1 to 4 do
      begin
      ReadLn(f,s);
        if j= ord(ch)-48 then begin
           val(s,t,e);
           sum:=sum+t;
        end;
      end;
     end;

    WriteLn('Сумма= ', sum);
    Close(f);
    ReadKey;
   End.

function IntToStr(I: Longint): String;
{ Convert any integer type to a string }
var
  S: string[11];
begin
  Str(I, S);
  IntToStr := S;
end;

OutText(IntToStr(sum));