Программа

PROGRAM Elephant;
USES CRT;  { Подключение модуля CRT }
VAR Chess_Board:array[1..8,1..8] of char; { Шахматная доска }
    Q,P:1..8; { Координаты слона }
    i,j:1..8;  { Счетчики горизонталей и веотикалей }
BEGIN
  ClrScr; { Очистка экрана }
  Write('Введите координаты слона '); { Вывод приглашения ввести координаты слона }
  ReadLn(Q,P); { Ввод горизонтали и вертикали }
  for i:=1 to 8 do { Цикл заполнения горизонталей }
    for j:=1 to 8 do { Цикл заполнения горизонтали }
      if Abs(i-Q)<>Abs(j-P)  { Если клетка не под боем }
      then Chess_Board[i,j]:='O'  { то - запись 'O' }
      else Chess_Board[i,j]:='*'; { иначе - запись '*' }
  Chess_Board[Q,P]:='C'; { Определение значения клетки под слоном }
  for i:=1 to 8 do { Цикл вывода горизонталей }
  Begin
    for j:=1 to 8 do { Цикл вывода горизонтали }
      Write(Chess_Board[i,j]); { Вывод поля }
    WriteLn { Вывод конца строки }
  End
END.
  ***************
 *               *
 *    П У С К    *
 *               *
  ***************
         :
         :
 *****************
 *               *
 *               *
 *    ClrScr     *
 *               *
 *               *
 *****************
         :
         :
         :
   *****************

  *   'Введите    *
     координаты
 *     слона '   *

*****************
         :
         :
         :
 *****************
 *               *
 *               *
 *      Q,P      *
 *               *
 *               *
 *****************
         :
         :∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙<∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙.
         :                                              :
    ***********                                         :
   *           *                                        :
  *             *                                       :
 *    i=1..8     *∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙.          :
  *             *                            :          :
   *           *                             :          :
    ***********                              :          :
         :                                   :          :
         :                                   :          :
         : .∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙:          :
         : :                                 :          :
         : :                            ***********     :
         : :                           *           *    :
         : :                          *             *   :
         : :                      .∙∙*    j=1..8     *  :
         : :                      :   *             *   :
         : :                      :    *           *    :
         : :                      :     ***********     :
         : :                      :          :          :
         : :                      :          `∙∙∙∙∙∙∙∙∙∙'
         : :                      *
         : :                    *   *
         : :                  *       *
         : :           Да   *           *  Нет
         : :           .∙∙*  |i-Q|<>|j-P| *∙∙.
         : :           :    *           *    :
         : :           :      *       *      :
         : :           :        *   *        :
         : :           :          *          :
         : :           :                     :
         : :           :                     :
         : :   *****************     *****************
         : :   *               *     *               *
         : :   *     Chess_    *     *     Chess_    *
         : :   *Board[i,j]:='O'*     *Board[i,j]:='*'*
         : :   *               *     *               *
         : :   *               *     *               *
         : :   *****************     *****************
         : :           :                     :
         : :           `∙∙∙∙∙∙∙∙∙∙.∙∙∙∙<∙∙∙∙∙'
         : :                      :
         : `∙∙∙∙∙∙∙∙∙<∙∙∙∙∙∙∙∙∙∙∙∙'
         :
         :
 *****************
 *               *
 *     Chess_    *
 *Board[Q,P]:='C'*
 *               *
 *               *
 *****************
         :
         :∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙<∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙.
         :                                               :
    ***********                                          :
   *           *                                         :
  *             *                                        :
 *    i=1..8     *∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙.           :
  *             *                            :           :
   *           *                             :           :
    ***********                              :           :
         :                                   :           :
         :                                   :           :
         : .∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙:           :
         : :                                 :           :
         : :                            ***********      :
         : :                           *           *     :
         : :                          *             *    :
         : :            .∙∙∙∙∙∙<∙∙∙∙∙*    j=1..8     *   :
         : :            :             *             *    :
         : :            :              *           *     :
         : :            :               ***********      :
         : :            :                    :           :
         : :            :                    :           :
         : :      *****************    ***************** :
         : :                                             :
         : :     *               *    *    Вывод      *  :
         : :     Chess_Board[i,j]          конца         :
         : :    *               *    *     строки    *   :
         : :                                             :
         : :   *****************    *****************    :
         : :            :                    :           :
         : `∙∙∙∙∙<∙∙∙∙∙∙'                    `∙∙∙∙∙∙∙∙∙∙∙'
         :
         :
         :
  ***************
 *               *
 *   К О Н Е Ц   *
 *               *
  ***************