program dialog_test;
var a:array[1..10] of string;k:integer;
begin
writeln('ответьте "да" или "нет" на следующие вопросы');
writeln('1.Уважайте ли Вы дружбу?');
readln(a[1]);
K:=0;
if a[1]='да' then k:=k+1;
writeln(' 2.Привлекает ли вас новое? ');
readln (a[2]);
if a[2]='нет' then k:=k+1;
writeln ('3.Притворяйтесь ли вы довольным без всякой на то ричины?');
readln(a[3]);
if a[3]='нет' then k:=k+1;
writeln('4.Меняли ли вы в детстве более 3 раз выбор своей профессии?');
readln(a[4]);
if a[4]='нет' then k:=k+1;
writeln('5.Предпочитайте ли вы старую одежду новой?');
readln(a[5]);
if a[5]='нет' then k:=k+1;
writeln('6.Лишались ли вы уверенности в себе, если вам предстояло решить трудную задачу');
readln(a[6]);
if a[6]='да' then k:=k+1;
writeln ('7.Коллекционируйте ли вы что-либо');
readln(a[7]);
if a[7]='да' then k:=k+1;
writeln('8.Часто ли вы меняете свои планы в последний момент?');
readln(a[8]);
if a[8]='нет' then k:=k+1;
if k>=6 then writeln ('Вы уравновешенный человек');
if(k>=3) and (k<6) then writeln ('у вас изменчивое настроение.Не забывайте,что только проявляя постоянство и настойчивость , Вы будете преуспевать в жизни.');
if k<3 then writeln (' Внимание ! Почему вы не верите в себя? будьте более оптимистичны');
end.