Viết chương trình đếm số lần giá trị X xuất hiện trong mảng số nguyên A

program oken;

uses crt;

var a: array [1..100] of integer;

       x,dem,i,n:integer;

begin

clrscr;

writeln('nhap so phan tu cua mang: '); readln(n);

for i:=1 to n do

begin

write('a[,i],']: '); readln(a[i]);

end;

write('nhap x: '); readln(x);

for i:=1 to n do if x=a[i] then dem:=dem+1;

writeln('so lan gia tri ',x,' xuat hien trong mang: ',dem);

readln;

end.

uses crt;
var a:array[1..1000]of longint;
    n,i,x,count:longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    readln(x);
    for i:=1 to n do
        if a[i]=x then inc(count);
    write(count);
readln;
end.