program NTest;
var
otvet:string;
bals:integer;
begin
writeln('+------------------------------------------------------------------+');
writeln('|           Психологический тест >> Методика "Лидер"               |');
writeln('+------------------------------------------------------------------+');
writeln('|Эта методика предназначена для того, чтобы оценить способность    |');
writeln('|человека быть лидером. Данное качество немаловажно для педагога,  |');
writeln('|поскольку он должен быть лидером, по крайней мере - в детском     |');
writeln('|коллективе.                                                       |');
writeln('|В данной методике испытуемый отвечает на 50 вопросов, и по его    |');
writeln('|ответам на эти вопросы делается вывод о том, обладает ли он       |');
writeln('|персональными психологическими качествами, необходимыми лидеру.   |');
writeln('|Из двух предложенных вариантов ответа на каждый вопрос необходимо |');
writeln('|выбрать и отметить только один.                                   |');
writeln('+==================================================================+');
writeln('|                           TECT                                   |');
writeln('|==================================================================|');
writeln('................для начала теста нажмите Enter......................');
readln;

writeln('+------------------------------------------------------------------+');
writeln('|Часто ли вы бываете в центре внимания окружающих? а) да, б) нет.  |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Считаете ли вы, что многие из окружающих вас людей занимают более |');
writeln('|высокое положение по службе, чем вы? а) да, б) нет.               |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='а')or(otvet='a')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Находясь на собрании людей, равных вам по служебному положению,   |');
writeln('|испытываете ли вы желание не высказывать своего мнения, даже когда|');
writeln('|это необходимо? а) да, б) нет.                                    |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Когда вы были ребенком, нравилось ли вам быть лидером среди       |');
writeln('|сверстников? а) да, б) нет.                                       |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Испытываете ли вы удовольствие, когда вам удается убедить кого-то |');
writeln('|в чем-то? а) да, б) нет.                                          |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Случается ли, что вас называют нерешительным человеком?           |');
writeln('|а) да, б) нет.                                                    |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Согласны ли вы с утверждением: <Все самое полезное в мире есть    |');
writeln('|результат деятельности небольшого числа выдающихся людей>?        |');
writeln('|а) да, б) нет.                                                    |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Испытываете ли вы настоятельную необходимость в советчике, который|');
writeln('|мог бы направить вашу профессиональную активность? а) да, б) нет. |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Теряли ли вы иногда хладнокровие в разговоре с людьми?            |');
writeln('|а) да, б) нет.                                                    |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Доставляет ли вам удовольствие видеть, что окружающие             |');
writeln('|побаиваются вас? а) да, б) нет.                                   |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Стараетесь ли вы занимать за столом (на собрании, в компании      |');
writeln('|и т.п.) такое место, которое позволяло бы вам быть в центре       |');
writeln('|внимания и контролировать ситуацию? а) да, б) нет.                |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Считаете ли вы, что производите на людей внушительное             |');
writeln('|(импозантное) впечатление? а) да, б) нет.                         |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Считаете ли вы себя мечтателем? а) да, б) нет.                    |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Теряетесь ли вы, если люди, окружающие вас, выражают несогласие   |');
writeln('|с вами? а) да, б) нет.                                            |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Случалось ли вам по личной инициативе заниматься организацией     |');
writeln('|рабочих, спортивных и других команд и коллективов? а) да, б) нет. |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Если то, что вы наметили, не дало ожидаемых результатов, то вы:   |');
writeln('|а) будете рады, если ответственность за это дело возложат на      |');
writeln('|кого-нибудь другого;                                              |');
writeln('|б) возьмете на себя ответственность, и сами доведете дело до конца|');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Какое из этих двух мнений вам ближе:                              |');
writeln('|а) настоящий руководитель должен уметь сам делать то дело, которым|');
writeln('|он руководит, и лично участвовать в нем;                          |');
writeln('|б) настоящий руководитель должен только уметь руководить другими  |');
writeln('|и не обязательно делать дело сам.                                 |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|С кем вы предпочитаете работать?                                  |');
writeln('|а) с покорными людьми                                             |');
writeln('|б) с независимыми и самостоятельными людьми.                      |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Стараетесь ли вы избегать острых дискуссий? а) да, б) нет.        |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Когда вы были ребенком, часто ли вы сталкивались с властностью    |');
writeln('|вашего отца? а) да, б) нет.                                       |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Умеете ли вы в дискуссии на профессиональную тему привлечь на     |');
writeln('|свою сторону тех, кто раньше был с вами не согласен? а) да, б) нет|');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Представьте себе такую сцену: во время прогулки с друзьями по лесу|');
writeln('|вы потеряли дорогу. Приближается вечер, и нужно принимать решение.|');
writeln('|Как вы поступите?                                                 |');
writeln('|а) дадите возможность принять решение наиболее компетентному      |');
writeln('|из вас;                                                           |');
writeln('|б) просто не будете ничего делать, рассчитывая на других.         |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Есть такая пословица: <Лучше быть первым в деревне, чем последним |');
writeln('|в городе>. Справедлива ли она? а) да, б) нет.                     |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Считаете ли вы себя человеком, оказывающим влияние на других?     |');
writeln('|а) да, б) нет.                                                    |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Может ли неудача в проявлении инициативы заставить вас больше     |');
writeln('|никогда этого не делать? а) да, б) нет.                           |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Кто, с вашей точки зрения, истинный лидер?                        |');
writeln('|а) самый компетентный человек;                                    |');
writeln('|б) тот, у кого самый сильный характер.                            |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Всегда ли вы стараетесь понять и по достоинству оценить людей?    |');
writeln('|а) да, б) нет.                                                    |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Уважаете ли вы дисциплину? а) да, б) нет.                         |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Какой из следующих двух руководителей для вас предпочтительнее?   |');
writeln('|а) тот, который все решает сам;                                   |');
writeln('|б) тот, который всегда советуется и прислушивается к              |');
writeln('|мнениям других.                                                   |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Какой из следующих стилей руководства, по вашему мнению, наилучший|');
writeln('|для работы учреждения того типа, в котором вы работаете?          |');
writeln('|а) коллегиальный, б) авторитарный.                                |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Часто ли у вас создается впечатление, что другие злоупотребляют   |');
writeln('|вами?                                                             |');
writeln('|а)да, б) нет.                                                     |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Какой из следующих двух <портретов> больше напоминает вас?        |');
writeln('|а) человек с громким голосом, выразительными жестами, за словом в |');
writeln('|карман не полезет;                                                |');
writeln('|б) человек со спокойным, тихим голосом, сдержанный, задумчивый.   |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Как вы поведете себя на собрании и совещании, если считаете ваше  |');
writeln('|мнение единственно правильным, но остальные с ним не согласны?    |');
writeln('|а) промолчу, б) буду отстаивать свое мнение.                      |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Подчиняете ли вы свои интересы и поведение других людей делу,     |');
writeln('|которым занимаетесь? а) да, б) нет.                               |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Возникает ли у вас чувство тревоги, если на вас возложена         |');
writeln('|ответственность за какое-либо важное дело? а) да, б) нет.         |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Что бы вы предпочли?                                              |');
writeln('|а) работать под руководством хорошего человека;                   |');
writeln('|б) работать самостоятельно, без руководителя.                     |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Как вы относитесь к утверждению: <Для того чтобы семейная жизнь   |');
writeln('|была хорошей, необходимо, чтобы решение в семье принимал один из  |');
writeln('|супругов>?                                                        |');
writeln('|а) согласен, б) не согласен.                                      |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Случалось ли вам покупать что-либо под влиянием мнения других     |');
writeln('|людей, а, не исходя из собственной потребности? а) да, б) нет.    |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Считаете ли вы свои организаторские способности хорошими?|        |');
writeln('|а) да, б) нет.                                                    |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Как вы ведете себя, столкнувшись с трудностями?                   |');
writeln('|а) у меня опускаются руки;                                        |');
writeln('|б) у меня появляется сильное желание их преодолеть.               |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Делаете ли вы упреки людям, если они этого заслуживают?           |');
writeln('|а) да, б) нет.                                                    |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Считаете ли вы, что ваша нервная система способна выдержать       |');
writeln('|жизненные нагрузки? а) да, б) нет.                                |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Как вы поступите, если вам предложат произвести реорганизацию     |');
writeln('|вашего учреждения?                                                |');
writeln('|а) введу нужные изменения немедленно;                             |');
writeln('|б) не буду торопиться и сначала все тщательно обдумаю.            |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Сумеете ли вы прервать слишком болтливого собеседника, если это   |');
writeln('|необходимо? а) да, б) нет.                                        |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Согласны ли вы с утверждением: <Для того чтобы быть счастливым,   |');
writeln('|надо жить незаметно>? а) да, б) нет.                              |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Считаете ли вы, что каждый человек должен сделать что-либо        |');
writeln('|выдающееся? а) да, б) нет.                                        |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Кем вы предпочли бы стать?                                        |');
writeln('|а) художником, поэтом, композитором, ученым;                      |');
writeln('|б) выдающимся руководителем, политическим деятелем.               |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Какую музыку вам приятнее слушать?                                |');
writeln('|а) могучую и торжественную,                                       |');
writeln('|б) тихую и лирическую.                                            |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='a')or(otvet='а')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Испытываете ли вы волнение, ожидая встречи с важными и известными |');
writeln('|людьми? а) да, б) нет.                                            |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+------------------------------------------------------------------+');
writeln('|Часто ли вы встречали людей с более сильной волей, чем ваша?      |');
writeln('|а) да, б) нет.                                                    |');
writeln('+------------------------------------------------------------------+');
readln(otvet);
if (otvet='б')or(otvet='b')then bals:=bals+1 else writeln('Такого варианта ответа нету!!!');
writeln('+==================================================================+');
writeln('Вы набрали ',bals,'балов');
if bals<=25 then otvet:='Качества лидера выражены слабо.' else
if (bals>26) and (bals<=36) then otvet:='Качества лидера выражены средне.' else
if (bals>36) and (bals<=40) then otvet:='Лидерские качества выражены сильно.' else
if bals>40 then otvet:='Вы хороший лидер и склонны к диктату';
writeln(otvet);
writeln('+==================================================================+');
readln;
writeln('--- Для выхода нажмите Enter ---');
readln;
end.