uses crt ;
 var a : array[1..4,1..6] of longint ;
  i,j,x,d : longint ;
    begin
     clrscr;
    writeln('---- Bat dau nhap mang ----');
    for i := 1 to 4 do
        for j := 1 to 6 do
             begin
            Write('--A[',i,',',j,']= ');
            readln(a[i,j]);
             end ;
    Write('Nhap 1 so bat ky: ') ;
      readln(x);
    for i := 1 to 4 do
        for j := 1 to 6 do 
            if a[i,j] = x then d := d + 1 ;
    writeln('so luong vi tri: ',d);
    for i := 1 to 4 do
        for j := 1 to 6 do
            if a[i,j] = x then writeln(i+1,'x',j+1,' ');
    writeln('---- mang da nhap ----');
    for i := 1 to 4 do
        for j := 1 to 6 do
             begin
            write(a[i,j]);
            writeln ;
             end ;
    end.

`#Khoa-natalya`

#Code chưa test

#include <bits/stdc++.h>
using namespace std;
int main() {
    int a[4][6];
    cout << "Nhap mang:\n";
    for (int i=0; i<4; i++)
        for (int j=0; j<6; j++)
            cin >> a[i][j];
    int k;
    cout << "Nhap 1 so: "; cin >> k;
    int d=0;
    for (int i=0; i<4; i++)
        for (int j=0; j<6; j++) if (a[i][j]==k) d++;
    cout << "Co " << d << ", tai cac vi tri: ";
    for (int i=0; i<4; i++)
        for (int j=0; j<6; j++) if (a[i][j]==k) cout << i+1 << "x" << j+1 << " ";
    cout << "Mang vua nhap:\n";
    for (int i=0; i<4; i++) {
        for (int j=0; j<6; j++) cout << a[i][j] << " ";
        cout << endl;
    }
}