Известны координаты точки, вывести сообщение какой координатной четверти она принадлежит. рассмотреть случай начала координат и рассмотреть случай, когда она принадлежит оси x.

Program gt; var x,y: integer; begin read(x,y); if(x> 0)and(y> 0)then writeln('первая четверт'); if(x< 0)and(y> 0)then writeln('вторая четверт'); if(x< 0)and(y< 0)then writeln('третья четверт'); if(x> 0)and(y< 0)then writeln('четвертая четверть'); if(x=0)and(y=0)then writeln('начала координат'); if(x=0)or(y=0)then writeln('точка находится на начале координат'); end.

Const       max_length = 10; type       arr = array [0..max_length, 0..max_length] of byte; var       a: arr;       i, j, n, m, k, x, y: byte;       c: char;       f: text; //procedure printmatrix(a: arr); //begin //      for var i : = 0 to max_length do //      begin //              writeln; //              for var j : = 0 to max_length do //                      write(a[i, j], ' '); //      end; //      writeln; //end; procedure labirint(i, j: byte); begin       if (i < = n) and (i > = 0) and (j < = m) and (j > = 0) and (a[i, j] = 0) then begin               a[i, j] : = 1;               k : = k + 1;               labirint(i, j - 1);               labirint(i, j + 1);               labirint(i - 1, j);               labirint(i + 1, j);       end; end; begin       assign(f, 'input.txt');       reset(f);             readln(f, n, m);       for i : = 0 to n do       begin               for j : = 0 to m do               begin                       read(f, c);                       case c of                               'x': a[i, j] : = 2;                               '.': a[i, j] : = 0;                               '+':                                       begin                                               x : = i;                                               y : = j;                                               a[i, j] : = 0;                                       end;                       end;               end;               readln(f);       end;       close(f);       //      printmatrix(a);             labirint(x, y);       writeln(k); //      printmatrix(a); end. инструментарий для дебага оставила. проверяйте значение символов перед стартом

Pascalabc.net версия 3.2 begin   var a: =arrrandom(10,0,100); a.println;   writeln('количество пар равно ',       a.pairwise.where(x-> ((x.item1+x.item2) mod 6< > 0)       and (x.item1*x.item2< ) end. пример работы программы 84 11 3 74 61 62 52 97 99 35 количество пар равно 3 пояснения. arrrandom создает нужный массив, println выводит его на экран. расширение pairwise порождает последовательность из пар соседних элементов, where образует фильтр этих пар с необходимыми условиями, а count подсчитывает количество пар, прошедших фильтр.