D=b^2-4*а*с
х1=-b+√D /2
x2=-b-√D/2
¬(x & 25 = 0) → (¬(x & 17 ≠ 0) → x & A ≠ 0) = 1
(x & 25 = 0) ∨ (x & 17 ≠ 0) ∨ (x & A ≠ 0) = 1
25 = 11001
17 = 10001
11001 делаем поразрядную конъюнкцию числа 25 на x
01000 - нужно наименьшее x по условию но так же нужна ложь во 2-м
-------- так же нужна ложь, поэтому делаем общую единицу
01000
10001 делаем поразрядную конъюнкцию числа 17 на x
01000 нужна ложь
--------
00000
От сюда мы имеем в этих выражениях ложь (x & 25 = 0) ∨ (x & 17 ≠ 0)
x = 01000
A & 01000 ≠ 0 должна быть истина
01000
01000
--------
01000 - истина
Значит A = 01000 = 8
Текстовая информация (вроде)
В Паскале переменные объявляются только одним способом - в секции var, путем перечисления переменных через запятую с последующим двоеточием, за которым следует тип переменных.
Тип Integer определяет целочисленные переменные из диапазона -32768..32767
Целочисленный массив M из 5 элементов с индексами от 1 до 5 можно объявить как
M:array[1..5] of integer;
Var
x,y:real;
begin
writeln ('Введите координаты точки (x,y)');
readln (x,y);
if (x=0) and (y=0) then writeln ('0')
else if (x=0) or (y=0) then writeln ('1')
else writeln ('2');
end.