Решить в Паскале
Определить содержит ли массив А[1..20] случайное число Х, введеное с клавиатуры.

Program 1;Var a:array[1..20] of integer;X, i, k: integer;Begin Writeln('введите элементы массива') ;For i:1 to 20 doReadln(a[i]);Writeln('введите х=');Readln(x);For i:=1 to 20 doIf x=a[i] Then k:=k+1;If k>0 Then writeln('да, содержит') Else writeln('нет, не содержит');END.