uses crt;
var
 s,q:string;
 i,n,g:longint;
begin
 writeln; writeln;writeln;
 Writeln('         Тест "Приятно ли с вами общаться?"');
 Delay(1000);
 clrscr;
 writeln;writeln;writeln;
 Writeln('Если человек общителен, то это еще не значит, что с ним приятно разговаривать.');
 writeln('Есть люди, которые своей общительностью надоедают');
 writeln('каждому буквально с первых минут разговора.');
 writeln('Посмотрите внимательно, разве мало вокруг таких людей?');
 writeln('А вы приятный собеседник?');
 Delay(5000);
 clrscr;
 writeln;writeln;writeln;
 writeln('   1) Вы любите больше слушать, чем говорить? ');
 writeln('   1>>Да');
 writeln('   2>>');
 Q:=readkey;
 If q='1' then inc(g);
 writeln('   2) Вы всегда можете найти тему для разговора, даже с незнакомым человеком? ');

 writeln('   1>>Да');
 writeln('   2>>Нет');
 Q:=readkey;
 If q='1' then inc(g);
 writeln('   3) Вы всегда внимательно слушаете собеседника? ');
 writeln('   1>>Да');
 writeln('   2>>Нет');
 Q:=readkey;
 If q='1' then inc(g);
 writeln('   4) Любите ли вы давать советы? ');
 writeln('   1>>Да');
 writeln('   2>>Нет');
 Q:=readkey;
 If q='1' then inc(g);
 writeln('   5) Если тема разговора вам не интересна, станете ли показывать это собеседнику?');

 writeln('   1>>Да');
 writeln('   2>>Нет');
 Q:=readkey;
 If q='1' then inc(g);
 writeln('   6) Раздражаетесь, когда вас не слушают? ');
 writeln('   1>>Да');
 writeln('   2>>Нет');
 Q:=readkey;
 If q='1' then inc(g);
 writeln('   7) У вас есть собственное мнение по любому вопросу? ');
 writeln('   1>>Да');
 writeln('   2>>Нет');
 Q:=readkey;
 If q='1' then inc(g);

 writeln('   8) Если тема разговора вам не знакома, станете ли вы ее развивать? ');
 writeln('   1>>Да');
 writeln('   2>>Нет');
 Q:=readkey;
 If q='1' then inc(g);

 writeln('   9) Вы любите быть центром внимания? ');
 writeln('   1>>Да');
 writeln('   2>>Нет');
 Q:=readkey;
 If q='1' then inc(g);

 writeln('   10) Есть ли хотя бы три предмета, по которым вы обладаете достаточно прочными знаниями? ');

 writeln('   1>>Да');
 writeln('   2>>Нет');
 Q:=readkey;
 If q='1' then inc(g);

 writeln('   11) Вы хороший оратор? ');
 writeln('   1>>Да');
 writeln('   2>>Нет');
 Q:=readkey;
 If q='1' then inc(g);
 writeln('Если вы положительно ответили на вопросы 1,2,3,4,5,6,7,8,9,10,11, то ');
 writeln('можете засчитывать себе по одному баллу за каждый из них.');
 Writeln('Ваши балы :',g);
 if (g>=1)and(g<=3) then
 begin
  writeln('1-3 балла: Трудно сказать, то ли вы молчун, из которого не вытянешь ни ');
  writeln('слова, то ли настолько общительны, что вас стараются избегать, но факт ');
  writeln('остается фактом: общаться с вами далеко не всегда приятно, а порой даже ');
  writeln('тяжело. Вам бы следовало над этим задуматься.');
 end;
 If (g>=4)and(g<=9) THEN
 BEGIN
  writeln('4-9 баллов: Вы, может быть, и не слишком общительный человек, но почти ');
  writeln('всегда внимательный и приятный собеседник. Вы можете быть и весьма ');
  writeln('рассеянным, когда не в духе, но не требуете от окружающих в такие минуты ');
  writeln('особого внимания к вашей персоне.');
 end;
 if g>=10 then
 begin
  writeln('10--11 баллов: Вы, наверное, один из самых приятных собеседников, друзья ');
  writeln('не могут без вас обойтись');
 end;
 delay(1000);









end.