Напишите программу, которая содержит тест (Pascal)
Уровень самооценки тест
Отвечая на вопросы, указывайте, как часты для Вас перечисленные ниже состояния по такой шкале:
очень часто – 4 балла;
часто – 3 балла;
иногда – 2 балла;
редко – 1 балл;
никогда – 0 баллов.
1. Я часто волнуюсь понапрасну.
2. Мне хочется, чтобы мои друзья подбадривали меня.
3. Я боюсь выглядеть глупцом.
4. Я беспокоюсь за свое будущее.
5. Внешний вид других куда лучше, чем мой.
6. Как жаль, что многие не понимают меня.
7. Чувствую, что я не умею как следует разговаривать с людьми.
8. Люди ждут от меня очень многого.
9. Чувствую себя скованным.
10. Мне кажется, что со мной должна случиться какая-то неприятность.
11. Меня волнует мысль о том, как люди относятся ко мне.
12. Я чувствую, что люди говорят про меня за моей спиной.
13. Я чувствую себя в безопасности.
14. Мне не с кем поделиться своими мыслями.
15. Люди не особенно интересуются моими достижениями.
Чтобы определить уровень своей самооценки, нужно сложить все баллы по утверждениям. А теперь посчитайте, сколько получится в сумме.
Если меньше 10, вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства. Возьмите за правило принципы: всякая конфликтная ситуация возникла из искры, которую вы высекли сами или помогли разжечь.
Если сумма превышает 30, то вы себя недооцениваете.
Набранное количество баллов от 10 до 30 свидетельствует о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности. Вам по плечу серьезные дела. Дерзайте!

спасибо огромное!

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 thenwriteln('Вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства. Возьмите за правило принципы: всякая конфликтная ситуация возникла из искры, которую вы высекли сами или помогли разжечь.');if k>30 thenwriteln('Вы себя недооцениваете);if (k>=10) and (k<=30) thenwriteln('Набранное количество баллов от 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;beginfor i := 0 to 5 dowriteln(b[i]);writeln;for i := 1 to 15 do beginwriteln(a[i]);Read(n);s:= s + n;end;if s < 10 then write ('вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства.',s)else if (S >= 10 ) and (S <= 30 ) thenwrite ('о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности.',s)else write ('вы себя недооцениваете',s);end.