Решить в паскале! на шахматной доске стоят черный король и три белые ладьи (ладья бьет по горизонтали и вертикали) . проверить, не находится ли король под боем.

  const                n = 3; //кол-во фигур          var        i : integer;         xk,yk : integer;         xl,yl : array [1..n] of integer;         r : boolean;     begin        // координат  //    xk : = 2; yk : = 2; // координаты короля            //координаты ладьи      xl[1] : = 1; yl[1] : = 2;       xl[2] : = 4; yl[2] : = 6;     xl[3] : = 5; yl[3] : = 8;       //      r : = false;   i : = 1;       while (i < = n) and (not r) do    begin    if (xk = xl[i]) or (yk = yl[i]) then //лежат на одной   прямой      r : = true;     i: = i +1;     end;       if r then    writeln ('король под ударом')  else    writeln ('король живет)');   end.

6- минимальное количество ходов, за которое можно добраться до любой клетки. программа на паскале: const   m = 7;   n = 9;   p = n*m;     dx: array [1..8] of integer = (-2, -1, 1, 2, 2, 1, -1, -2);   dy: array [1..8] of integer = (1, 2, 2, 1, -1, -2, -2, -1); var   a: array [1..m, 1..n] of integer;   x,y: array [1..p] of integer;   i,j,l: integer;   t: boolean;     begin   for i : = 1 to p do       begin       x[i] : = -1;       y[i] : = -1;       end;     for i : = 1 to m do   for j : = 1 to n do       a[i,j] : = -1;     a[1,1] : = 0;   x[1] : = 1;   y[1] : = 1;   l : = 1;     for i : = 1 to p do       if x[i] < > - 1 then       for j : = 1 to 8 do           if (x[i] + dx[j] > 0) and (x[i] + dx[j] < = m) then           if (y[i] + dy[j] > 0) and (y[i] + dy[j] < = n) then           if a[ x[i] + dx[j], y[i] + dy[j] ] = -1 then               begin               l : = l + 1;               x[l] : = x[i] + dx[j];               y[l] : = y[i] + dy[j];               a[ x[l], y[l] ] : = a[ x[i], y[i] ] + 1;               end;     for i : = 1 to p do if x[i] < > -1 then       writeln(i: 2,' - ',x[i],': ',y[i],' - ',a[ x[i], y[i] ],' ');         end.