Program  hronotiptest;
Var A, B, I: integer;
Begin
A:=0;
B:=0;
writeln('Privetstvuem!');
writeln('Предлагаем Вашему вниманию тест, определяющий Ваш хронотип');
writeln('Введите номер выбранного ответа');
readln;
writeln('1). Каково Ваше отношение к необходимости раннего пробуждения?');
writeln('1. Положительное');
writeln('2. Отрицательное');
writeln('Ваш ответ:');
Readln(I);
If  I=1 then A:=A+1 else B:=B+1;
Readln;
Writeln('2). Какой завтрак Вы предпочитаете перед работой?');
Writeln('1. Легкий');
Writeln('2. Плотный и/или чашка кофе(иногда не одна)');
Writeln('Ваш ответ:');
Readln(I);
If  I=1 then A:=A+1 else B:=B+1;
Readln;
Writeln('3). В какую половину дня трудная работа дается Вам легче?');
Writeln('1. В первую половину дня');
Writeln('2. Во вторую половину дня');
Writeln('Ваш ответ:');
Readln (I);
If  I=1 then A:=A+1 else B:=B+1;
Readln;
Writeln('4). В какое время Вы предпочитаете ложиться спать?');
Writeln('1. До 22:00 часов');
Writeln('2. После 22:00 часов');
Writeln('Ваш ответ:');
Readln (I);
If  I=1 then A:=A+1 else B:=B+1;
Readln;
Writeln('5). Приходится ли Вам днем ложиться на 1,5-2 часа, чтобы набраться сил?');
Writeln('1. Да');
Writeln('2. Нет');
Writeln('Ваш ответ:');
Readln (I);
If  I=1 then A:=A+1 else B:=B+1;
Readln;
Writeln('6). Мысленно отсчитайте промежуток времени, равный 1 минуте. Посмотрите на часы с секундной стрелкой. Вы отсчитали минуту…');
Writeln('1. Быстрее часов');
Writeln('2. Дольше часов');
Writeln('Ваш ответ:');
Readln (I);
If  I=1 then A:=A+1 else B:=B+1;
Readln;
If A>B then
 write('«Жаворонок». Ваша работоспособность достигает своего пика в первой половине дня, приблизительно до 11.00 часов.');
 writeln('Затем постепенно снижается. Не стоит «подзаряжаться» искусственными способами, чтобы продержаться до позднего вечера, лучше постарайтесь немного поспать днем - это действительно прибавит сил.')
else
	If B>A then
		write('«Сова». Будильник - самый страшный враг. Независимо от того, во сколько легли, утром вам очень тяжело проснуться.');
    write ('Зная за собой такую черту, постарайтесь все важные дела планировать на вторую половину дня.');
    write ('Не мучайте себя понапрасну: по-настоящему вы просыпаетесь только в вечерние часы.');
    writeln ('Когда других клонит ко сну, вы начинаете творить чудеса.')
	else
		write(' «Голубь». Вам не доставляет особых проблем необходимость раннего пробуждения или бессонная ночь.');
    write ('Аритмики легко подстраиваются под любой график и не ощущают неудобств. Вы - счастливчик!');
    writeln('Только не переусердствуйте с перестройками. Давайте периодически организму расслабиться.');
writeln('Спасибо за тестирование!');
end.