Напишите программку, которая содержит тест (Pascal)Уровень самооценки тестОтвечая на

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 lt; 10 then write ('для вас надобно избавляться от чувства превосходства над окружающими, зазнайства, самохвальства.',s)
else if (S gt;= 10 ) and (S lt;= 30 ) then
write ('о психологической зрелости, которая проявляется до этого всего в адекватности самоотражения, то есть реалистической оценке собственных сил, возможностей, наружности.',s)
else
write ('вы себя недооцениваете',s);end.

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 klt;10 then
writeln('Для вас надобно избавляться от чувства превосходства над окружающими, зазнайства, самохвальства. Берите за управляло принципы: всякая конфликтная ситуация появилась из искры, которую вы высекли сами либо посодействовали разжечь.');
if kgt;30 then
writeln('Вы себя недооцениваете);
if (kgt;=10) and (klt;=30) then
writeln('Набранное количество баллов от 10 до 30 свидетельствует о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности. Для вас по плечу суровые дела. Дерзайте!');end.