Где тут ошибка? program dialog_test; var a: string; k: integer; begin writeln('ответьте "да" или "нет" на следующие вопросы'); writeln('1.уважайте ли вы дружбу? '); read(a); k: =0; if a='да' then k: =k+1; writeln('2.привлекает ли вас новое? '); read(a); if a='нет' then k: =k+1; writeln ('3.притворяйтесь ли вы довольным без всякой на то ричины? '); read(a); if a='нет' then k: =k+1; writeln('4.меняли ли вы в детстве более 3 раз выбор своей профессии? '); read(a); if a='нет' then k: =k+1; writeln('5.предпочитайте ли вы старую одежду новой? '); read(a); if a='нет' then k: =k+1; writeln('6.лишались ли вы уверенности в себе, если вам предстояло решить трудную '); read(a); if a='да' then k: =k+1; writeln ('7.коллекционируйте ли вы что-либо'); read(a); if a='да' then k: =k+1; writeln('8.часто ли вы меняете свои планы в последний момент? '); read(a); if a='нет' then k: =k+1; if k> =6 then writeln ('вы уравновешенный человек'); if(k> =3) and (k< 6) then writeln ('у вас изменчивое настроение.не забывайте,что только проявляя постоянство и настойчивость , вы будете преуспевать в жизни.'); if k< 3 then writeln (' внимание ! почему вы не верите в себя? будьте более оптимистичны'); end.
