9В. Проект "Любительский тест"

При помощи команды ветвления можно запрограммировать диалог пользователя с компьютером, реализовать подсчет правильных ответов в несложном тестировании.
Задание: написать программу, проводящую простейшее тестирование.
Пример программы:

---

Program Test;
Uses Crt;            {Модуль для работы в отдельном текстовом окне}
var a,k :integer;
Begin
 ClrScr;             {Очистка окна}
 TextSize(16);       {Установить размер шрифта - 16 пт}

 TextColor(4);       {Установить цвет текста - красный}
 { Вывод на экран текстовой заставки }
 writeln('**********************************');
 writeln('**         Психологический      **');
 writeln('**             тест             **');
 writeln('**********************************');
 writeln('  "Приятно ли с Вами общаться?"   ');
 writeln('==================================');
 writeln('Для прохождения теста отвечайте');
 writeln('на заданные вопросы "1" (Да) или "0" (Нет)');
 writeln('**********************************');
 writeln('Нажмите Enter');
 {Ждем нажатия Enter и очищаем экран}
 readln;
 ClrScr;
 TextColor(1);
 k:=0;
 writeln('1.Вы любите больше слушать,чем говорить? ');
 readln(a);
 if a = 1 then k:=k+1;
 writeln('2.Вы всегда можете найти тему для разговора даже с незнакомым человеком? ');
 readln(a);
 if a = 1 then k:=k+1;
 writeln('3.Вы всегда внимательно слушаете собеседника? ');
 readln(a);
 if a = 1 then k:=k+1;
 writeln('4.Любите ли Вы давать советы? ');
 readln(a);
 if a = 0 then k:=k+1;
 writeln('5.Если тема разговора Вам неинтересна,станете ли показывать собеседнику? ');
 readln(a);
 if a = 0 then k:=k+1;
 writeln('6.Раздражаетесь ли Вы,когда Вас не слушают? ');
 readln(a);
 if a = 1 then k:=k+1;
 writeln('7.У Вас есть собственное мнение по любому вопросу? ');
 readln(a);
 if a = 1 then k:=k+1;
 writeln('8.Если тема разговора Вам незнакома,станете ли её развивать? ');
 readln(a);
 if a = 1 then k:=k+1;
 writeln('9.Вы любите быть центром внимания? ');
 readln(a);
 if a = 1 then k:=k+1;
 writeln('10.Есть ли хотябы три предмета,по которым Вы обладаете достаточно прочными знаниями? ');
 readln(a);
 if a = 1 then k:=k+1;
 writeln('11.Вы хороший оратор? ');
 readln(a);
 if a = 0 then k:=k+1;
 writeln(' Нажмите Enter ');
 {Ждем нажатия Enter и очищаем экран}
 readln;
 ClrScr;
 if (k>=1) and (k<=3) then
begin
 writeln('Трудно сказать,то ли Вы молчун,из которого не вытянешь ни слова,то ли ');
 writeln('настолько общительны,что Вас стараютсь избегать,но факт остается фактом:общаться с ');
 writeln('Вами далеко не всегда приятно, а порой даже тяжело. ');
 end;
 if (k>=4) and (k<=9) then
begin
 writeln('Вы,можете быть,и не слишком общительный человек,но почти всегда');
 writeln('внимательный и приятный собеседник.Вы можете быть весьма рассеянным,когда не в');
 writeln('духе,но не требуете от окружающих в такие минуты особого внимания к Вашей персоне.');
end;
 if (k>=10) and (k<=11) then
begin
 writeln('Вы наверное,один из самых приятнах в общение людей.Вряд ли');
 writeln('друзья могут без Вас обойтись.Это прекрасно!Возникает только один вопрос: не');
 writeln('приходится ли Вам иногда играть,как на сцене?');
 end;
 End;
 end.

---