2-3 примера для решения которых необходимо построение или имитационной модели

//так и не осознала как вводить функции с клавиатуры. спрошу у учителя. var b1,b2,b: boolean; function imp(a, b : boolean) : boolean; begin imp: =(not a) or b; end; begin; writeln('implication'); for b1: =false to true do for b2: =false to true do writeln(b1: 7,b2: 7,imp(b1,b2): 7); writeln('not (x) or y'); for b1: =false to true do for b2: =false to true do writeln(b1: 7,b2: b1) or b2): 7); for b1: =false to true do for b2: =false to true do if imp(b1,b2)< > ((not b1) or b2) then   begin;   writeln('не эквивалентны');   exit;   end; writeln('эквивалентны'); 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.