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

Program Poisk_mas;
uses Crt;
Var i, x: integer;
A : array [1..20] of integer;
c: string;
begin
Clrscr;
Randomize;
Write ('Zadayte chislo X ');
readln (x);
writeln;
c:='v massive net chisla x';
For i:=1 to 20 do
begin
a[i]:=random(10);
writeln(A[i]);
if a[i]=x then c:='v massive est chislo x';
end;
writeln;
writeln (c);
readln;
end.