Напишите наибольшее число x, для которого ложно высказывание: НЕ (x ≤ 48) ИЛИ (x нечётное МНЕ

Const nx = 50;
Var A,B,D:array[1..nx]of integer; i,n,j,m,z,k,m1:integer;
Begin
WriteLn('Введи количество элементов массива'); Read(n);
 For i:= 1 to N do begin
A[i]:= random(20)-5;write(A[i]:3);end;writeln;
For i:= 1 to N do begin
z:= A[i];k:=0;
For j:= i+1 to N do 
if A[i] = A[j] then k:= k +1;
For j:= 1 to m do
if A[i] = B[j] then k:= k +1;
For j:= 1 to m1 do
if A[i] = D[j] then k:= k +1;
if k = 0 then begin 
m:= m + 1; B[m] := z;end
else begin m1:= m1 + 1; D[m1] := z;end;
end;writeln('B');
For i:= 1 to m do write(B[i]:3);
end.

Вначале я Вам напишу простой перевод:
1 байт = 8 бит                    
1 Кбайт = 1024 байт
1 Мбайт = 1024 Кбайт
1 ГБ = 1024 МБ
Первая задача - Гбайт в Бит:
Для того, чтобы перевести Гбайты в Биты, нужно количество Гбайт умножить на 1024 ещё раз умножить на 1024 и ещё раз умножить на 1024 и потом умножить на 8. У нас получится ответ, который вы ищете, Например:
Возьмем 1 Гбайт и переведём его в биты, распишу по действиям:
1)1*1024 = 1024
2)1024*1024 = 1048576
3)1048576*1024 = 1073741824
4)1073741824*8 = 8589934592 
ответ: 8589934592 Бит.
Вторая задача - Бит в Байт:
Для того, чтобы перевести Биты в Байты, нужно количество битов поделить на 8, т.к 1 байт = 8 бит(об этом писал выше) и получим нужный ответ, Например: Опять возьмём 1 Бит и переведём его в Байты(напишу в нескольких видах, если будет непонятно):
- первый вид
1/8 = 0,125 - второй вид
1:8 = 0,125 - третий вид
ответ: 0,125 Байт.
Вот так у нас получилось 2 ответа:
Первый - 8589934592 Бит и Второй 0,125 Байт.