до 19:00 по мск

1. Напишите программу, запрашивающую у пользователя пароль. Если пароль не совпадает с эталонным (придумайте его сами например, "12345"), то программа возвращает пользователя на шаг ввода пароля. данная программа должна быть выполнено с оператора Repeat...Until

2. Напишите программу викторину, которая задаёт три во и предлагает пользователи на них ответить. Переход на следующий во не происходит до тех пор, пока пользователь не ответит правильно на предыдущий во Переменную под ответа используйте текстовую (string). данная программа должна быть выполнено с оператора Repeat... Until.​

Для начала, если есть знак , то нам не подходит, т.к. элемент может равняться данному числу. 
исходя из этого пункт Г точно не подходит.
Рассмотрим а)
не  означает, что . Перепишем 
. Т.к. у нас множества, то можно рассматривать знак  как пересечение. Соответственно знак  как объединение.
т.е. в а) в результате пересечения двух таких интервалов получим просто
. Данное уравнение нам вполне подходит. Если наша точка точно меньше A, то в отрезок не попадает. 
б) Тут имеем либо точка точно меньше A или точно больше B. Однозначно подходит нам.
в) перепишем, используя закон Де Моргана

Т.к. у нас , то число одновременно больше B и меньше A не существует.

Как-то так. 

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(4,4,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var sn:=a.ElementsByRow.Where(t->t<0).Sum;
  Writeln('Сумма отрицательных элементов равна ',sn);
  var sd:=0;
  for var i:=0 to a.RowCount-1 do sd+=a[i,i];
  Writeln('Сумма элементов на главной диагонали равна ',sd);
end.

Пример
*** Исходный массив ***
  55 -36  70  19
  79  14   5  -5
  79  -9 -62  20
 -71  69 -34  66

Сумма отрицательных элементов равна -217
Сумма элементов на главной диагонали равна 73