Тест

uses crt;
var k:integer;
     s:string;
begin
 ClrScr;
 k:=0;
 Writeln('Вопросы');
 begin
 Writeln('');  //здесь пишешь свой вопрос и т.д вниз
 Writeln('a) '); //здесь варианты ответа и т.д вниз
 Writeln('b) ');
 Writeln('c) ');
 Readln(s);
  if s='a' then  //здесь ставишь правильный вариант ответа
   k:=k+1;
  end;
  ClrScr;
 begin
 Writeln('');
 Writeln('a) ');
 Writeln('b) ');
 Writeln('c) ');
 Readln(s);
  if s='a' then
   k:=k+1;
  end;
  ClrScr;
  begin
  Writeln('');
  Writeln('a) ');
  Writeln('b) ');
  Writeln('c) ');
  Readln(s);
   if s='a' then
    k:=k+1;
  end;
  ClrScr;
  begin
  Writeln('');
  Writeln('a) ');
  Writeln('b) ');
  Writeln('с) ');
  Readln(s);
    if s='c' then
     k:=k+1;
  end;
  ClrScr;
  begin
  Writeln('');
  Writeln('a) ');
  Writeln('b) ');
  Writeln('c) ');
  Readln(s);
   if s='c' then
    k:=k+1;
  end;
  ClrScr;
  Writeln('Оценка ',k);
  Readln;
 end.

var t:array[1..9]of 0..1;
i,c,an:integer;
 
begin
 c:=0;
 t[1]:=1;
 t[2]:=0;
 t[3]:=0;
 t[4]:=1;
 t[5]:=0;
 t[6]:=1;
 t[7]:=0;
 t[8]:=1;
 t[9]:=0;
 //0 для нет, 1 для да
 for i:=1 to 9 do
 begin
  case i of
  1:writeln('Всегда ли Вы делаете немедленно то, о чем Вас просили?');
  2:writeln('Случается ли, что рассердившись, Вы "выходите из себя"?');
  3:writeln('Смеетесь ли Вы иногда над двусмысленными неприличными шутками?');
  4:writeln('Полностью ли Вы свободны от всяких предрассудков?');
  5:writeln('Любите ли Вы иногда прихвастнуть?');
  6:writeln('Всегда ли Вы отвечаете на письма сразу после прочтения?');
  7:writeln('Откладываете ли Вы иногда на завтра то, что можно сделать сегодня?');
  8:writeln('Оплатите ли Вы проезд в автобусе, если будите знать,что проверки билетов не будет?');
  9:writeln('Считаете ли Вы, что лучше больше выигрывать, чем больше проигрывать?');
  end;
  write('-> ');
  readln(an);
  if an=t[i] then inc(c);
 end;
 
 writeln('Результаты тестирования');
 case c of
 0:writeln('ВЫ ЧЕСТНЫЙ ЧЕЛОВЕК. ПРОДОЛЖАЙТЕ В ТОМ ЖЕ ДУХЕ');
 1..4:writeln('ВЫ ОБМАНЫВАЕТЕ РЕДКО');
 5..8:writeln('ТРУДНО ВЕРИТЬ ВАШИМ СЛОВАМ. ВЫ РЕДКО ГОВОРИТЕ ПРАВДУ');
 9:writeln('ВЫ НЕИСПРАВИМЫЙ ЛЖЕЦ. ВАС НУЖНО ИЗОЛИРОВАТЬ ОТ ОБЩЕСТВА');
 end;
 readln;
end.

uses crt;
var t:array[1..9]of 1..3;
q:array[1..9]of string;
i,c,ans:integer;
 
begin
 clrscr;
 c:=0;
 t[1]:=3;
 t[2]:=2;
 t[3]:=1;
 t[4]:=1;
 t[5]:=3;
 t[6]:=3;
 t[7]:=2;
 t[8]:=1;
 t[9]:=2;
 
 q[1]:='Всегда ли Вы делаете немедленно то, о чем Вас просили?';
 q[2]:='Случается ли, что рассердившись, Вы "выходите из себя"?';
 q[3]:='Смеетесь ли Вы иногда над двусмысленными неприличными шутками?';
 q[4]:='Полностью ли Вы свободны от всяких предрассудков?';
 q[5]:='Любите ли Вы иногда прихвастнуть?';
 q[6]:='Всегда ли Вы отвечаете на письма сразу после прочтения?';
 q[7]:='Откладываете ли Вы иногда на завтра то, что можно сделать сегодня?';
 q[8]:='Оплатите ли Вы проезд в автобусе, если будите знать,что проверки билетов не будет?';
 q[9]:='Считаете ли Вы, что лучше больше выигрывать, чем больше проигрывать?';
 
 for i:=1 to 9 do
 begin
  write(q[i],' -> ');
  readln(ans);
  if ans=t[i] then inc(c);
 end;
 
 write('Ваша оценка - ');
 case с of
 8..9:write('ОТЛИЧНО ');
 6..7:write('ХОРОШО ');
 4..5:write('УДОЛЕТВОРИТЕЛЬНО ');
 else write('НЕУДОЛЕТВОРИТЕЛЬНО ');
 end;
 writeln('Верных ответов: ',c,' из 9');
 readln;
end.