Какие из признаков является общим и для группы художник а)человек б)имеет кисточки с)создает картину д)имеют бороду

Program yeah;const N=15;const M=15;var A:array [1..N,1..M] of integer;i,j,b,c,x,y:integer;beginrandomize;write('матрица: ');writeln;for i:=1 to N do begin   for j:=1 to M do beginA[i,j]:=random(100);write(A[i,j]:3);end;writeln;end;c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[1,c];end;end;x:=x+b;c:=c+1;end;writeln('сумма первой строчки: ',x);c:=1;while c<16 do beginfor i:=1 to N do begin   for j:=1 to M do beginb:=A[15,c];end;end;y:=y+b;c:=c+1;end;writeln('сумма последней строчки: ',y);x:=x+y;writeln('общая сумма: ',x);end.

Uses Graphabc;   
begin
  SetWindowWidth(800);     
  SetWindowHeight(900);    
  SetPenWidth(1);   
  PutPixel(400, 400, clred);               
  Line(0, 150, 100, 150);
  Line(0, 150, 100, 200);
  Line(100, 150, 150, 100);
  Line(100, 50, 200, 150);
  Line(100, 50, 200, 0);
  Line(200, 0, 250, 50);
  Line(250, 50, 300, 0);
  Line(300, 0, 300, 100);
  Line(300, 100, 350, 100);
  Line(350, 100, 250, 150);
  Line(250, 150, 300, 350);
  Line(300, 350, 400, 400);
  Line(50, 300, 100, 200);
  Line(50, 300, 100, 250);
  Line(100, 250, 150, 550);
  Line(150, 550, 300, 650);
  Line(400, 400, 500, 250);
  Line(500, 250, 650, 250);
  Line(650, 250, 750, 450);
  Line(750, 450, 650, 400);
  Line(650, 400, 550, 500);
  Line(550, 500, 650, 450);
  Line(750, 600, 650, 450);
  Line(600, 550, 750, 600);
  Line(700, 700, 600, 550);
  Line(500, 600, 700, 700);
  Line(400, 650, 500, 600);
  Line(400, 800, 400, 650);
  Line(450, 850, 400, 800);
  Line(250, 850, 450, 850);
  Line(350, 800, 250, 850);
  Line(300, 650, 350, 800);
end.