Опишите ДКА, которые допускают следующие языки над алфавитом {0, 1}: а) множество всех цепочек, оканчивающихся на 00;
б) множество всех цепочек, содержащих три нуля подряд;
в) множество цепочек, содержащих в качестве подцепочки 011.

Заштрихована область в форме песочных часов (см. картинку во вложении? каждая клеточка - это элемент массива)

Program sandglass;
uses crt;
const n=19;
var mas: array[1..n,1..n] of integer;
  i,j,a,yes: integer;
begin
  randomize;
  for i:=1 to n do
    for j:=1 to n do
      mas[i,j]:=random(101)-50;
  for i:=1 to n do
    begin
      for j:=1 to n do
        write (mas[i,j]:4);
      writeln;
    end;
  yes:=0;
  write ('Please input A=');
  read(a);
  writeln;
  for i:=1 to n do
    for j:=1 to n do
      begin
        if (i<=j) and (i+j<=n+1) and (mas[i,j]=a) or (i>=j) and (i+j>=n+1) and (mas[i,j]=a) then
          begin
            yes:=1;
          end;
      end;
  if yes<>0 then
      write ('Yes!')
    else
      write ('No!');
end.

Проверено - работает на Паскаль АВС.

Кстати, похоже на какую-то ошибку в условии задачи: по формуле A(X,Y)=2X^2-Y^2 ни один элемент массива никогда не будет равен 0.

Program Lobu;
uses crt;
const n=2;
var
  a:array[1..n,1..n] of real;
  neg,sum: real;
  i,j:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  neg:=0;
  sum:=0;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
         a[i,j]:=2*i*i-j*j;
         write (a[i,j]:7:2);
         if a[i,j]<0 then neg:=neg+1;
         if a[i,j]>0 then sum:=sum+a[i,j];
         if a[i,j]=0 then writeln('Элемент А(',i,',',j,') равен 0');
        end;
      writeln();
    end;
  writeln();
  writeln('Количество отрицательных чисел ',neg);
  writeln('Сумма положительных чисел ',sum);
end.