Помогите сослать программу на Паскале.Поиск чисел в массиве. Program Example; {Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50, вводит число Х, и вычисляет, сколько раз Х входит в массив Rand} Var Rand: array[1..20] of integer; I, X, NumberX : integer, Begin {Установка датчика случайных чисел} ​Randomize; {Заполнение массива случайными числами и вывод их на экран} ​Writeln(‘Массив случайных чисел:’) ​For I:=1 to 10 do ​begin ​ Rand[I]:=random(50); Write(Rand[I]:4) ​End; ​Writeln; {Ввод Х} ​Write(‘Введите Х:’)); Readln(X); {Подсчет числа вхождений Х в массив} ​NumberX:=0; ​For I:=1 to 10 do ​​If Rand(I)=X then NumberX:=NumberX+1; {Анализ и вывод результата} ​If NumberX=0 ​Then​writeln(‘В массиве нет числа’,X) ​Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’) End.

Var Rand: array[1..20] of integer;
I, X, NumberX : integer;
Begin 
Writeln(Массив случайных чисел);
For I:=1 to 10 do
begin Rand[I]:=random(50);
Write(Rand[I]:4);
End;
Writeln;
Write(Введите Х:);
 Readln(X);
NumberX:=0;
For I:=1 to 20 do
If (Rand[I]=X) then NumberX:=NumberX+1;
If NumberX=0 Then
writeln(В массиве нет числа ,X)
Else writeln(Число,X,в массиве присутствует ,NumberX, раза)
End.