Определить, содержит ли массив A[1..20] из диапазона (-20, 60) случайных чисел число Х. На языке паскаль

program diapozon;varA: array [1..20] of integer;x: integer;i: shortint;beginrandomize;for i:= 1 to 20do A[i]:= random(-20,60);write('Введите число, которое нужно проверить >>');readln(x);for i:= 1 to 20do if(A[i] = x)then beginwriteln('Это число есть в массиве');exit;end;writeln('Этого числа нет в массиве');end.//Программа создаст массив из 20 элементов с числами от -20 до 60 и проверит есть ли в нем число, заданное пользователем. Выведет пояснение.

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(20,-20,60); a.Println;  var x:=ReadInteger('Какое число ищем?');  if a.Contains(x) then Writeln('Такое число есть')  else Writeln('Такого числа нет')end.Примеры42 23 59 0 20 23 41 26 47 8 23 42 20 35 31 53 -4 53 8 14Какое число ищем? 25Такого числа нет15 1 44 40 55 3 31 -12 29 33 4 -13 -12 43 -14 51 44 -2 41 18Какое число ищем? -12Такое число есть