program CheckArray;
var
A: array[1..20] of Integer;
X: Integer;
i: Integer;
containsX: Boolean;
begin
// Ввод случайного числа Х с клавиатуры
Write('Введите число X: ');
Readln(X);

// Заполнение массива A случайными числами
Randomize;
for i := 1 to 20 do
A[i] := Random(100); // Генерация случайного числа от 0 до 99

// Поиск числа X в массиве A
containsX := False;
for i := 1 to 20 do
begin
if A[i] = X then
begin
containsX := True;
Break;
end;
end;

// Вывод результата на экран
if containsX then
WriteLn('Массив содержит число X')
else
WriteLn('Массив не содержит число X');
end.