Паскаль. ошибка на 14 строке: индекс находился за пределами массива. что делать? program n_6; const m: array [1..4] of integer =(15, 18, 36, 54); var i, x, y, z: integer; procedure nod (a, b: integer; var c: integer); begin while a< > b do if a> b then a: = a-b else b: = b-a; c: =aend; begin x: =m[1]; for i: =2 to 6 do begin y: =m[i]; nod (x, y, z); x: =z end; writeln ('нод=', x)end.

PYfy9pX4YibdfKzE8dnbSXaP3D5sbZenWQXx+TzottBxmrnKP4dS39zDFCHeytaxQuaxO6+SihcUhSqF6PmmxN3GxGIIAPLiSxjqjTtSHbvo7htEBwkC9DrKA9nK9xIOxPRcjpd6DAdMG0SkqPbK1+57wXgl2KsD43bDyI91iNHZGVEFuJjW2WjoZmDZOb/rVd7R9AqyWfNwqgLu5n0s8oZKpT55zvtPlOdDo6CM93h3C9G55Qj17fBXO/NNywpSzMGUqCxZha8Dm9QprL4Amawdo2pnCyu31Kn+Zny692acWR8k+IjeIoeL9HS7GGpxomAYoUcl2QOl2meKVWiovxtHmLKNooQK1Hc8yqvu293YHqgzQp3rHNgJxPJfiQnUmlYXGvOGZLk6vEUXIiesvdftDsCS/8Ae6YiLr8HWExGez9YXrworoX46BqS86+EFy3m8zwgu1fA9z61qLUP90KYw8KxlJJDWAThAVGrADHEsoHJ35+216/jwx5ruS3xgPOL83Vy5P1bL884jUiefVsuhprgR7C75lvy2ZCUYolQ=

При логическом "и" значение истинно, если оба элемента являются истиной. Все остальное - ложь. Соответственно, чтобы высказывание "А и (Париж - столица Франции)" было истинным, нужно, чтобы оба элемента возвращали истину (логическая единица). Париж - столица Франции - истинно. А - истинно, т.е. А = 1. Для того, чтобы высказывание возвращало ложь, нужен хотя бы один логический ноль. Поскольку "Париж - столица Франции" - это 1, то B = 0.
При логическом "или" значение истинно, если присутствует хотя бы одна единица. Значит C = 1, D = 0