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.