Program a8_44;
uses crt;
const m=5; n=5;
var a:array[1..m,1..n] of integer;
      i,j,q,w:integer;
BEGIN
clrscr;
randomize;
writeln('Ââåäèòå ÷èñëî "n"');
readln(q);
for i:=1 to m do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(9)+1;
        write(a[i,j]:3);
      end;
    writeln;
  end;
w:=0;
for i:=1 to m do
  for j:=1 to n do
    if a[i,j]=q then w:=w+1;
    if w>0 then writeln('Ýëåìåíò ',q,' åñòü ñðåäè äàííûõ çíà÷åíèé!')
    else writeln('Ýëåìåíòà ',q,' íåòó ñðåäè äàííûõ çíà÷åíèé!');
readln;
END.