Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Где тут ошибка?
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.

Ответ оставил Гость

Рабочая прога в приложении==============