Создание теста. Подсчет результатов - Pascal ABC

var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer;
begin
 writeln('Викторина на тему "Африканские царства".');
 writeln('№ 1. Правителя Мали называли:');
 writeln(' 1.оба');
 writeln(' 2.манса');
 writeln(' 3.хамса');
 read(a);
 writeln('№ 2. Морской путь из Европы в Индию открыл:');
 writeln(' 1.Васко да Гама');
 writeln(' 2.Генрих Мореплаватель');
 writeln(' 3.манса Муса');
 read(b);
 writeln('№ 3. Манса Муса награждал храбрых воинов:');
 writeln(' 1.большими тюрбанами');
 writeln(' 2.широкими штанами');
 writeln(' 3.длинными туфлями');
 read(c);
 writeln('№ 4. В Мали собирали урожай:');
 writeln(' 1.пшеницы и орехов кола');
 writeln(' 2.кукурузы и арахиса');
 writeln(' 3.попкорна и пепси-колы');
 read(d);
 writeln('№ 5. Томбукту - это:');
 writeln(' 1.африканский король');
 writeln(' 2.торговый город');
 writeln(' 3.пустыня');
 read(e);
 writeln('№ 6. Народ ашанти делал золотые головы с помощью:');
 writeln(' 1.воды и железа');
 writeln(' 2.воска и меди');
 writeln(' 3.воска и глины');
 read(f);
 writeln('№ 7. Народ Бенина видел его оба:');
 writeln(' 1.раз в неделю');
 writeln(' 2.раз в месяц');
 writeln(' 3.раз в год');
 read(g);
 writeln('№ 8. Жилища кочевников сделаны:');
 writeln(' 1.из камня');
 writeln(' 2.кожи');
 writeln(' 3.песка');
 read(h);
 writeln('№ 9. Слоновая кость - это:');
 writeln(' 1.ценный метал');
 writeln(' 2.твёрдое дерево');
 writeln(' 3.бивни слона');
 read(i);
 writeln('№ 10. Народ ашанти использовал вместо денег:');
 writeln(' 1.мелике камешки');
 writeln(' 2.золотой песок');
 writeln(' 3.медные весы');
 read(j);
  if a = 2 then
  begin
   k:=1;
  end;
  if (a = 1) or (a = 3) then
  begin
   k:=0;
  end;
  if b = 1 then
  begin
   l:=k+1;
  end;
  if (b = 2) or(b = 3)then
  begin
   l:=k;
  end;
  if c = 2 then
  begin
   m:=l + 1;
  end;
  if (c = 1) or (c = 3)then
  begin
   m:=l
  end;
  if d = 1 then
  begin
   n:=m + 1;
  end;
  if (d = 2) or (d = 3) then
  begin
   n:=m
  end;
  if e = 2 then
  begin
   o:=n + 1;
  end;
  if (e = 1) or (e = 3) then
  begin
   o:=n;
  end;
  if f = 3 then
  begin
   p:=o + 1;
  end;
  if (f = 1) or(f = 2) then
  begin
   p:=o;
  end;
  if g = 3 then
  begin
   q:=p + 1;
  end;
  if (g = 1) or (g = 2) then
  begin
   q:=p;
  end;
  if h = 2 then
  begin
   r:= q + 1;
  end;
  if (h = 1) or (h =3 ) then
  begin
   r:=q;
  end;
  if i = 3 then
  begin
   s:=r + 1;
  end;
  if (i = 1) or (i = 2)then
  begin
   s:=r;
  end;
  if j = 2 then
  begin
   t:=s + 1;
  end;
  if (j = 1) or (j = 3) then
  begin
   t:=s;
  end;
  if (t = 10) or (t = 9) or (t = 8)then
  begin
   writeln('Вы набрали ',t,' баллов.Отлично!');
  end;
  if (t = 7) or (t = 6) or (t = 5) or (t = 4) then
  begin
   writeln('Вы набрали ',t,' баллов.Неплохо.');
  end;
  if (t = 3) or (t = 2) or (t = 1) or(t = 0) then
  begin
   writeln('Вы набрали ',t,'баллов.Советую пройти викторину снова.');
  end;
 if t<=9 then
  writeln('Вы ошиблись на следующих вопросах:');
  if a=1 then
  begin
   writeln(' № 1.Правителя Мали называли:');
   writeln('Ваш выбор: 1.оба');
   writeln('Правильный ответ: 2.манса');
  end;
  if a=3 then
  begin
   writeln(' № 1.Правителя Мали называли:');
   writeln('Ваш выбор: 3.хамса');
   writeln('Правильный ответ: 2.манса');
  end;
    if b=2 then
    begin
     writeln(' № 2. Морской путь из Европы в Индию открыл:');
     writeln('Ваш выбор: 2.Генрих Мореплаватель');
     writeln('Правильный ответ: 1.Васко да Гама');
    end;
    if b=3 then
    begin
     writeln(' № 2. Морской путь из Европы в Индию открыл:');
     writeln('Ваш выбор: 3.манса Муса');
     writeln('Правильный ответ: 1.Васко да Гамма');
    end;
    if c<=1 then
    begin
     writeln(' № 3. Манса Муса награждал храбрых воинов:');
     writeln('Ваш выбор: 1.большими тюрбанами');
     writeln('Правильный ответ: 2.широкими штанами');
    end;
    if c=3 then
    begin
     writeln('Ваш выбор: 3.длинными туфлями');
     writeln('Правильный ответ: 2.широкими штанами');
     end;
        if d=2 then
        begin
         writeln(' № 4. В Мали собирали урожай:');
         writeln('Ваш выбор: 2.кукурузы и арахиса');
         writeln('Правильный ответ: 1.пшеницы и орехов кола');
        end;
        if d=3 then
        begin
         writeln('Ваш выбор: 3.попкорна и пепси-колы');
         writeln('Правильный ответ: 1.пшеницы  орехов кола');
        end;
          if e=1 then
          begin
           writeln(' № 5. Томбукту - это:');
           writeln('Ваш выбор: 1.африканский король');
           writeln('Правильный ответ: 2.торговый город');
          end;
          if e=3 then
          begin
           writeln(' № 5. Томбукту - это:');
           writeln('Ваш выбор: 3.пустыня');
           writeln('Правильный ответ: 2.торговый город');
          end;
            if f=1 then
            begin
             writeln(' № 6. Народ ашанти делал золотые головы с помощью:');
             writeln('Ваш выбор: 1.воды и железа');
             writeln('Правильный ответ: 3.воска и глины');
            end;
            if f=2 then
            begin
             writeln(' № 6. Народ ашанти делал золотые головы с помощью:');
             writeln('Ваш выбор: 2.воска и меди');
             writeln('Правильный ответ: 3.воска и глины');
            end;
              if g=1 then
              begin
               writeln(' № 7. Народ Бенина видел своего оба:');
               writeln('Ваш выбор: 1.раз в неделю');
               writeln('Правильный ответ: 3.раз в год');
              end;
              if g=2 then
              begin
               writeln(' № 7. Народ Бенина видел своего оба:');
               writeln('Ваш выбор: 2.раз в месяц');
               writeln('Правильный ответ: 3.раз в год');
              end;
                if h=1 then
                begin
                 writeln(' № 8. Жилища кочевников сделаны:');
                 writeln('Ваш выбор: 1.из камня');
                 writeln('Правильный ответ: 2.из кожи');
                end;
                if h=3 then
                begin
                 writeln(' № 8. Жилища кочевников сделаны:');
                 writeln('Ваш выбор: 3.из песка');
                 writeln('Правильный ответ: 2.из кожи');
                end;
                  if i=1 then
                  begin
                   writeln(' № 9. Cлоновая кость - это:');
                   writeln('Ваш выбор: 1.ценный металл');
                   writeln('Правильный ответ: 3.бивни слона');
                  end;
                  if i=2 then
                  begin
                   writeln(' № 9. Cлоновая кость - это:');
                   writeln('Ваш выбор: 2.твёрдое дерево');
                   writeln('Правильный ответ: 3.бивни слона');
                 end;
                   if j=1 then
                   begin
                    writeln(' № 10. Народ ашанти использовал вместо денег:');
                    writeln('Ваш выбор: 1.мелкие камешки');
                    writeln('Правильный ответ: 2.золотой песок');
                   end;
                   if j=3 then
                   begin
                    writeln(' № 10. Народ ашанти использовал вместо денег:');
                    writeln('Ваш выбор: 3.медные весы');
                    writeln('Правильный ответ: 2.золотой песок');
                   end;
writeln('    ...  Желаю удачи в следующей виторине!!! ...     ');
end.