Сгенерировать массив из N случайных целых чисел и вывести его. Ввести целое
число. Определить, есть ли в массиве элемент, равный этому числу, или вывести
сообщение, что нет такого значения в массиве

Благодарю)

ConstK = 30;VarA:array[1..K] of integer;i,C,n:integer;BeginWrite('Введите целое число: ');ReadLn(C);n:=0;For i:= 1 to K do    Begin    A[i]:=random(21)-10;    Write(A[i],' ');    if A[i]=C then n:=n+1;    End;WriteLn;if n>0 then WriteLn('В массиве есть элемент, равный ',C)else WriteLn('В массиве нет элементов, равных ',C)End.