B1: nhập n, k và dãy;
B2: i:=i+1;
B3: 

     b3.1: nếu a[i]<k thì d1←d1+1, ngược lại d2←d2+1;
     b3.2: nếu a[i]=k thì d3←d3+1;
     b3.3: nếu a[i]=k thì write('a[',i,'] ');
B4: nếu i<=n thì quay lại B2;
B5: thông báo kết quả và kết thúc thuật toán.

uses crt;
var a: array[1..500] of integer;
    n,i,k,d1,d2,d3:integer;
Begin
        clrscr;
        write('n = ');readln(n);
        write('k = ');readln(k);
        for i:=1 to n do
        begin
                write('a[',i,'] = ');readln(a[i]);
                if a[i]<k then d1:=d1+1;
                else d2:=d2+1;
                if a[i]=k then d3:=d3+1;
        end;
        writeln('co ',d1,' so < ',k);
        writeln('co ',d2,' so > ',k);
        writeln('co ',d3,' so = ',k);
        write('vi tri cac so = ',k,': ');
        for i:=1 to n do
        if a[i]=k then write('a[',i,'] ');
        readln
End.

code:

uses crt;
var a: array[1..1000] of integer;
i,n,t1,t2,t3,k: integer;
begin
clrscr;
write('nhap so bat ky k= '); readln(k);
write('nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap so thu ',i,': '); readln(a[i]);
if a[i]<k then inc(t1);
if a[i]>k then inc(t2);
if a[i]=k then inc(t3);
end;
writeln('co ',t1,' so trong mang vua nhap be hon ',k);
writeln('co ',t2,' so trong mang vua nhap lon hon ',k);
writeln('co ',t3,' so trong mang vua nhap bang hon ',k);
write('vi tri cac so bang hon ',k,' la: ');
for i:=1 to n do
if a[i]=k then write(i:4);
readln;
end.