Переделать программу под оператор read program n_1; const pi= 3.14; bar= r,c,s: real begin r: =5.4; c: = 2*pi*r; s: =pi*r*r; writeln ('c=', c: 6: 4); writeln ('s=', s: 6: 4) end

Program n_1; var r,c,s: real; begin readln(r); c: = 2*pi*r; s: =pi*r*r; writeln ('c=', c: 6: 4); writeln ('s=', s: 6: 4) end. пример: 5 c=31.4159 s=78.5398

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.