В паскале составить программу для 6 класса

Ферзь, стоящий в точке , может бить фигуры, у которых:
    1)
    2)
    3) координаты находятся по диагонали от ферзя.

Имеем не самую лучшую и чистую, но рабочую программку:

#include <cstdio>

int main() {
  int x1, x2, y1, y2, x_d1, y_d1, x_d2, y_d2;
  printf("x1=");
  scanf("%d", &x1);
  printf("y1=");
  scanf("%d", &y1);
  printf("x2=");
  scanf("%d", &x2);
  printf("y2=");
  scanf("%d", &y2);

  /* Проверка на линейные совпадения */
  if ( (x1 == x2) or (y1 == y2) ) {
    printf("1");
    return 1;
  }

  /* Поиск пересечения с диагональю 1 */
  x_d1 = x1;
  y_d1 = y1;
  while ( (x_d1 > 1) and (y_d1 > 1) ) {
    x_d1--;
    y_d1--;
    if ( (x2 == x_d1) and (y2 == y_d1) ) {
      printf("1");
      return 1;
    }
  }
  while ( (x_d1 < 8) and (y_d1 < 8) ) {
    x_d1++;
    y_d1++;
    if ( (x2 == x_d1) and (y2 == y_d1) ) {
      printf("1");
      return 1;
    }
  }

  /* Поиск пересечения с диагональю 2 */
  x_d2 = x1;
  y_d2 = y1;
  while ( (x_d2 < 8) and (y_d1 > 1) ) {
    x_d1++;
    y_d1--;
    if ( (x2 == x_d2) and (y2 == y_d2) ) {
      printf("1");
      return 1;
    }
  }
  while ( (x_d1 > 1) and (y_d1 < 8) ) {
    x_d1--;
    y_d1++;
    if ( (x2 == x_d2) and (y2 == y_d2) ) {
      printf("1");
      return 1;
    }
  }
 
  printf("0");
  return 0;
}

Формула нахождения размера файла - I=t*b*f*k,где t - это время в секундах,b - глубина кодирования ,f - частота дискретизации,k - количество каналов.Перейдём к задаче =>  2 минуты - 120 секунд,
8кГц - 8 000 отсчётов в секунду - представим как 2^3*2^10;16 = 2^4,
Нужно помнить ,что  1 Мбайт = 2^20 байт = 2^23 бит,                                    1 Кбайт = 2^10 байт = 2^13 бит 
т.к нам надо ответь дать в мегабайтах.Делим всё на 2^23
120 представим как 60*2

I=1*2^3*2^10*2^4*120/2^23=2^17*2*60/2^23=2^18*60/2^23=> степени сокращаем получаем 60/2^5 =>60/32 = примерно 1,875 => округляем до целых  будет 2 .ответ 2 мегабайта.