Почему программа выводит некорректный результат?

SevaSava, добавлю только, что в операторах для расчёта x и y в качестве аргумента функции Random совершенно необязательно брать аргумент 20. Пожалуй даже, чем больше это число, тем лучше ("случайнее") будут Ваши значения. Да и вообще, необходимость этого аргумента притянута только упоминанием целых чисел в задаче. Вполне сгодились бы x и y типа real и их получение просто x := Random; y := Random;

Почему программа выводит некорректный результат?

В программу не вобьёшь Z:=X>Y

Что, правда что ли? (PascalABC под рукой нет) Выражение как выражение...
Ну напишите: if X >= Y then Z := true else Z := False;
А цикл у Вас по большому счёту только один и нужен - 20 итераций отсчитать (ну или какое-то другое заданное число). Сейчас у Вас там цикл For, если очень нужно для отчётности, то замените его на repeat-until. Это не принципиально.

Почему программа выводит некорректный результат?

Программа выдаёт непонятный результат.

а привести пример этого результата и написать, что в нём непонятного, нельзя было? Подозреваю, что у Вас true встречается гораздо реже чем false, так?
Я бы по-другому это решал. Массивы A и B не нужны совершенно, это раз. Сравнение чисел - это не только проверка равенства, это два.
Делаем так. Получаем одно случайное число X, получаем второе случайное число Y. Наш искомый булевый Z равен (X>Y). Печатаем его. И так 20 раз. Ну, чтобы "на ребро не встало" для определённости пусть будет Z := (X>=Y).
Но! Задание ведь явно учебное, да? А учебные задания надо рассматривать в контексте изучаемого материала. Что за тема, что Вам в ней рассказывали, что нужно использовать для решения и т.п. Поэтому не факт, что моё решение или решение другого пользователя устроит Вашего преподавателя.
p.s. Randomize не надо тыкать во все возможные места. Его нужно вызвать один раз в начале программы.

Как полностью удалить драйвер для touchpad в Windows 11?

Похоже, что за некую связь компьютера с телефоном.

Кстати! Вроде были такие проекты, в которых телефон (его экран) использовался в качестве устройства ввода для ПК. Может это как раз остатки от такого и есть.

Что это значит?

Prg, ну так и правильно делает. Опасности в данном случае примерно одинаковые.

Как полностью удалить драйвер для touchpad в Windows 11?

А кто и зачам поставил какой-то драйвер от Samsung если у Вас устройство Synaptec?
Только не говорите, что оно само...

Как убрать подробности в проводнике?

Zailox, Чтобы вместо нового сокращенного контекстного меню в Windows 11 вернуть "классическое" полное нужно править реестр. Не верится, что у Вас настолько умная мышка, что сделала это! :)
Способы вернуть классическое контекстное меню в Wi...

Простое решение для десктопа?

Мужики, завязывайте, пожалуйста! Уведомления о ваших сообщениях задолбали.
Очевидно же, что к согласию вы всё равно не придёте. Просто остановитесь.

Выключается монитор при включении холодильника (на 1-2с), варианты фикса?

Сам проверить не успел - источник помех самоустранился. Но мне в похожей ситуации несколько человек советовали заменить именно кабель комп-монитор. Так что видимо это решение не случайное и вполне имеет право на жизнь.

Стоит ли переплачивать за такой модуль?

Нурмагомед Лабазанов,

не особо люблю покупать с али , всегда думаю что там дешман продают одноразовый

Тут есть два разных аспекта.
1) Платы "оригинал" или "копия".
Если взять те же Ардуино, то по цене разница очень существенная, но это хотя бы хоть немного, но разный товар.
2) Платы с алиэкспресс или из наших местных магазинов.
Тут цена тоже может различаться на сколько угодно, но товар-то при этом из одного источника. Просто у нас его продают с наценкой, иногда просто с конской.
Производитель контроллеров ESP - китайская фирма. Почему бы не покупать эти микроконтроллеры на их родине? Причиной покупать esp или ардуино не в Китае, а у нас может быть, например, скорость доставки, а больше что-то и не придумывается ничего...

Как перепаять Ардуино в флешку?

Нурмагомед Лабазанов, чего много? Проводов? Я имею ввиду, что не стоит вообще связываться с пайкой. Чем обычный кабель USB-microUSB хуже?
Или вот в ответах хороший вариант предложили. Там только контактов к ногам нормальных нет. Но может Вам и не нужны.

Как перепаять Ардуино в флешку?

Нурмагомед Лабазанов, прямо на эту плату разъём всё равно не встанет. Что так, что эдак провода получаются.

Как перепаять Ардуино в флешку?

А что значит "сделать флешку"? Это как?
Если Вам просто хочется соединять плату с компом без дополнительного провода, то да хватило бы другого разъёма, но разъём Type A прямо сюда на плату физически не встанет.
Если имеется в виду что-то другое, то надо объяснять.

На Windows 11 браузеры на основе chromium блокируют скачивание любых файлов помечая их как заражённые вирусом, как исправить?

MasterArt, какие остаются варианты?
Возможно на компе производились какие-то манипуляции/твики приведшие к такому. Винде какие-нибудь ограничения не возводились? Вспоминайте, не делали ли чего особенного.
Возможно на компе установлен какой-то специфичный софт из области безопасности, криптографии или что-то около этого, которого нет у массового пользователя. (Например, у меня однажды какая-то из версий Крипто-Про препятствовала доступу к компу по RDP - казалось бы, где связь?)

На Windows 11 браузеры на основе chromium блокируют скачивание любых файлов помечая их как заражённые вирусом, как исправить?

На этот файл даже с включенным SmartScreen нет ругани.

Установлены все предлагаемые на текущий момент обновления. Лицензия.
Windows 11 Домашняя Версия 23H2 (Сборка ОС 22631.3672)
Microsoft Edge Версия 125.0.2535.85 (Официальная сборка) (64-разрядная версия)

Переформулирую своё предположение о вирусах. Может на компе уже имеется зловред, который сразу заражает скачиваемые файлы?

SmartScreen иногда действительно излишне параноидальный, но он легко отключаемый.
А вот если файлы именно дефендером убиваются, то скорее всего он в них реально что-то увидел.

На Windows 11 браузеры на основе chromium блокируют скачивание любых файлов помечая их как заражённые вирусом, как исправить?

MasterArt, было бы проще, если бы Вы предоставили одну конкретную ссылку на файл, который Вам Edge не рекомендует скачивать даже при выключенном SmartScreen. Лучше прямо в вопрос её вставьте - народ проверит. Может выявится какая-то закономерность.

На Windows 11 браузеры на основе chromium блокируют скачивание любых файлов помечая их как заражённые вирусом, как исправить?

MasterArt, за проверку именно при загрузке отвечает конкретно этот модуль. Проверено неоднократно. Включено - при попытке скачать ругань на файл есть, выключено - ругани нет. Возможно, вы качаете реальные вирусы, которые обнаруживаются дефендером.

Можно ли программно отключить HDD?

Упомянутые в комментариях корзинки для hdd, даже если на них написано hotswap, на самом деле не совсем то. Практически все они содержат только тупой выключатель питания. А весь их "hotswap" заключается в том, что замену диска можно выполнить быстро, без открытия корпуса, кручения винтов и перетыкания проводов. У самого такая в компе стоит. Но все операции с ней произвожу на выключенном компе. Не знаю, сочтёт ли автор вопроса удобным каждый раз выключать включать свой комп.
Кстати, многие наверное видели такой момент, но сам я никогда в это особо не вникал. На некоторых материнках обычные сата-диски попадают в список устройств, которые якобы можно безопасно извлечь - интересно, что это означает, что имеется ввиду? Может как раз оно? Только как обратно включать? Никто не разбирался?

Почему mmjoy выдает ошибку в устройствах и принтерах?

В таких случаях обычно посылают за ответами к автору устройства/программы. Глянул - а этот проект заморожен уже почти 10 лет! Вы уверены, что на современных компьютерах под актуальными ОС это в принципе должно работать?
Кроме того, автор проекта явно не заморачивался качественной инструкцией. Мол, кому надо - все и так всё знают.
Как я понял из обрывочного описания, после заливки прошивки устройство ещё нужно сконфигурировать той же программой. Вы это сделали? А то может у Вашего устройства ещё ни кнопок ни джойстиков нет?
Других идей нет. Советую поискать обсуждения этого контроллера на более специализированных форумах, может там найдутся ещё живые пользователи.

Как в 1С получить дату установки текущего состояния ЭДО у документа?

Вроде получилось собрать всё воедино. Кроме регистра, с которого я начал, - СостоянияПоОбъектамУчетаЭДО, в котором есть документ и состояние, но нет даты, нашёлся регистр СостоянияДокументовЭДО, в котором есть электронный документ, состояние и нужная нам дата! Осталось только связать документ и электронный документ. Связь эта вроде как отражена в ещё одном регистре - ОбъектыУчетаДокументовЭДО.
Запрос ко всему этому выдал похожий на правду результат.
Всем спасибо!

p.s. Регистр ЖурналДействийПоЭДО не пригодился, хотя там тоже нужная информация присутствует. В регистре присутствуют записи, соответствующие всем шагам электронного документа. И они с датами. Если взять из них последнюю, то она будет соответствовать текущему состоянию.