Написать программу, которая считает, сколько раз последовательности из 10 чисел встречается введённое с клавиатуры число А.

Var i, k, n: integer;

a: array[1 ... 10] of integer;

begin

k:=0; randomize;

writeln ('число: ') ; readln (n) ;

writeln ('последовательность из 10 элементов') ;

for i:=1 to 10 do

begin

a[i]:=random (50) ;

write (a[i],' ') ;

if a[i]=n then k:=k+1;

end;

writeln;

if k>0 then

writeln ('число ', n,' встречается ', k,' раз')

else

writeln ('числа ', n,' нет в последовательности') ;

readln;

end.