Напишите программу, которая содержит тест (Pascal) Уровень самооценки тест Отвечая на вопросы, указывайте, как часты для Вас перечисленные ниже состояния по такой шкале: очень часто – 4 балла; часто – 3 балла; иногд...

var s:string; k:integer; procedure res(s:string;var k:integer); begin; if s='очень часто' then k:=k+4; if s='часто' then k:=k+3; if s='иногда' then k:=k+2; if s='редко' then k:=k+1; end; begin; writeln('1. Я часто волнуюсь понапрасну.'); readln(s); res(s,k); writeln('2. Мне хочется, чтобы мои друзья подбадривали меня.'); readln(s); res(s,k); writeln('3. Я боюсь выглядеть глупцом.'); readln(s); res(s,k); writeln('4. Я беспокоюсь за свое будущее.'); readln(s); res(s,k); writeln('5. Внешний вид других куда лучше, чем мой.'); readln(s); res(s,k); writeln('6. Как жаль, что многие не понимают меня.'); readln(s); res(s,k); writeln('7. Чувствую, что я не умею как следует разговаривать с людьми.'); readln(s); res(s,k); writeln('8. Люди ждут от меня очень многого.'); readln(s); res(s,k); writeln('9. Чувствую себя скованным.'); readln(s); res(s,k); writeln('9. Чувствую себя скованным.'); readln(s); res(s,k); writeln('10. Мне кажется, что со мной должна случиться какая-то неприятность.'); readln(s); res(s,k); writeln('11. Меня волнует мысль о том, как люди относятся ко мне.'); readln(s); res(s,k); writeln('12. Я чувствую, что люди говорят про меня за моей спиной.'); readln(s); res(s,k); writeln('13. Я чувствую себя в безопасности.'); readln(s); res(s,k); writeln('14. Мне не с кем поделиться своими мыслями.'); readln(s); res(s,k); writeln('15. Люди не особенно интересуются моими достижениями.'); readln(s); res(s,k); if k<10 then writeln('Вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства. Возьмите за правило принципы: всякая конфликтная ситуация возникла из искры, которую вы высекли сами или помогли разжечь.'); if k>30 then writeln('Вы себя недооцениваете); if (k>=10) and (k<=30) then writeln('Набранное количество баллов от 10 до 30 свидетельствует о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности. Вам по плечу серьезные дела. Дерзайте!');end.

const A:array[1..15] of string =('1. Я часто волнуюсь понапрасну.','2. Мне хочется, чтобы мои друзья подбадривали меня.','3. Я боюсь выглядеть глупцом.','4. Я беспокоюсь за свое будущее.','5. Внешний вид других куда лучше, чем мой.','6. Как жаль, что многие не понимают меня.','7. Чувствую, что я не умею как следует разговаривать с людьми.','8. Люди ждут от меня очень многого.','9. Чувствую себя скованным.','10. Мне кажется, что со мной должна случиться какая-то неприятность.','11. Меня волнует мысль о том, как люди относятся ко мне.','12. Я чувствую, что люди говорят про меня за моей спиной.','13. Я чувствую себя в безопасности.','14. Мне не с кем поделиться своими мыслями.','15. Люди не особенно интересуются моими достижениями.'); B:array[0..5] of string=('Отвечая на вопросы, указывайте, как часты для Вас перечисленные ниже состояния по такой шкале:','очень часто – 4 балла;','часто – 3 балла;','иногда – 2 балла;','редко – 1 балл;','никогда – 0 баллов.'); var i,n,s:integer; begin for i := 0 to 5 do writeln(b[i]);writeln; for i := 1 to 15 do begin writeln(a[i]);Read(n);s:= s + n;end; if s < 10 then write ('вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства.',s) else if (S >= 10 ) and (S <= 30 ) then write ('о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности.',s) else write ('вы себя недооцениваете',s);end.