я не понял как это делать остальные я сделал только это осталось ​

Program JuliaVanina;
uses crt;
var
  r,min,max: real;
  k:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  min:=0;
  max:=0;
  k:=0;
  r:=1;
  writeln('Введите ненулевое число, не превышающее 30000 по модулю');
  writeln('(или введите 0 для конца последовательности) ');
  while (r<>0) and (k<1000) do
    begin
      write('Ввод:');  
      readln (r);
      if abs(r)<30000 then
          begin
            if min>r then min:=r;
            if max<r then max:=r;
            k:=k+1;  
          end
        else
          begin
            writeln ('вы ввели слишком большое по модулю число');
            writeln ('Это число не будет учтено');
          end;
    end;
  writeln();
  writeln('Всего введено ',k-1,' чисел');
  writeln('Разность min и max составляет ',max-min);
end.

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

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

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.