Составить алгоритм вычисления площади треугольника со сторонами a, b, c (a, b, c - вещественные положительные числа

vara,b,c,s,p: real; beginreadln(a); readln(b); readln(c);

p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c));

writeln('ploshad=', s)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.

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.