ПОЧЕМУ ПОСТОЯННО ВЫВОДИТЬСЯ (89) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла(94) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла(95) : Ошибка времени выполнения: Индекс выходит за границы массиваvara: array [1..100000] of integer;varb : array [word] of string;varg : array [1..100000] of integer ;varh: real;vark, i, n: integer;begin begink:=0;i:=0;n:=1;h:=0;writeln ('Ответы вводяться строкой без пробелов. Пример: 12345');b[1]:='1. Общество в широком смысле слова – это ' '1) территория обитания людей'' 2) история человечества'' 3) совокупность форм объединения людей'' 4) производительные силы';b[2]:= '2. Обществознание – это ''1) наука'' 2) учебная дисциплина'' 3) комплекс наук об обществе и человеке'' 4) сфера естественнонаучного знания'' 5) сфера гуманитарного знания';b[3]:= '3. Человек отличается от животного наличием'' 1) языка'' 2) разума'' 3) сознанием'' 4) трудовой деятельности'' 5) мышления';b[4]:= '4. Личность возможна (Определить неверный ответ)'' 1) без морали'' 2) без гражданственности'' 3) без ответственности'' 4) без диплома о высшем образовании';b[5]:= '5. Человек и общество'' 1) человек первичен по отношению к обществу'' 2) общество первично по отношению к человеку'' 3) человек и общество взаимно обусловлены'' 4) общество и человек развиваются независимо друг от друга';b[6]:= '6. Мораль в религии основывается'' 1) на разуме'' 2) на вере'' 3) на долге'' 4) на свободе';b[7]:= '7. Целью развитой религии является достижение'' 1) материального благополучия'' 2) социального положения и значимости'' 3) спасение души'' 4) познание мира'' 5) управление силами природы';b[8]:= '8. К монотеистическим религиям относятся'' 1) индуизм'' 2) ислам'' 3) буддизм'' 4) язычество';b[9]:= '9. К основным моральным категориям относятся (определить неверный ответ)'' 1) добро'' 2) справедливость'' 3) совесть'' 4) выгода'' 5) любовь';b[10]:= '10. Мораль проявляется в следовании'' 1) интересам власти'' 2) общественному мнению'' 3) анимизму'' 4) гороскопу'' 5) внутреннему «Я» человека';b[11]:= ' 1. 3. 2 23. 3. 12345. 4. 4. 5. 3. 6. 2. 7. 3. 8. 23. 9. 4. 10. 5. ';a[1]:=3;a[2]:=23;a[3]:=12345;a[4]:=4;a[5]:=3;a[6]:=2;a[7]:=3;a[8]:=23;a[9]:=4;a[10]:=5;end;beginfor k:=1 to 10 do beginwriteln (b[k]);readln (g[n]);n:=n+1;end;for n:=1 to 100 do if g[n]=a[i] then begin h:=h+1;i:=i+1;end;end;writeln (h/2);end.