Как записывается полная форма разветвляющегося алгоритма? примеры.

Http://gimn1567.ru/metod/less_qb/171.htm

         чертишь координатные оси  , рисуешь круг с радиусов в 2 единичных отрезка , где нибудь т.X и т. Y , т. R внутри круга или на ободе круга , тобишь где прямая с осью имеет общую точку и начинаешь искать всё по моей схеме .  
                                                   
                                                   Ι            Ι
                                                   ΙначалоΙ
                                                   ΙΙ
                                                        Ι
                                                        Ι
                                               
                                               ΙопределениеΙ
                                               Ι      окна        Ι
                                               Ι Ι
                                                        Ι
                                                        Ι
                                                Ι
                                              /                  /
                                             /ввод X,Y,R/
                                            //
                                                        Ι
                                                        Ι
                                                Ι
                                              /   выыод    /
                                             /   рисунка  /
                                            //
                                                        Ι
                                                        Ι
                               нет условие да 
                                  Ι                                              Ι
                                  Ι                                              Ι
                           1 действие                              2 действие
                                  Ι                                              Ι
                                  ΙΙ
                                                         Ι
                                                         Ι
                                             
                                            /                         /
                                           /   вывод X,Y,R  / 
                                          / /
                                                         Ι
                                                         Ι 
                                             
                                             (       конец       )
                                              ⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻⁻

Const n=5;
var i: integer;
b: real;
a: array [1..n] of integer;  {если его элементы целые числа (про тип чисел ничего не сказано в задании)}
begin 
           for i:=1 to n do
           read(a[i]);
           if ((a[1]+a[3]) mod 5 = 0) and (a[5] mod 10 = 3) then
           begin b:=0;
                     for i:=1 to 5 do
                     b:=b+sqr(a[i]);
           end
           else begin b:=1;
                            for i:=1 to 5 do
                            b:=b*sqrt(a[i]);
                   end;
writeln(b:1:2);        {округление до сотых}
if (a[1]+a[2]+a[3])>15 then writeln('да, сумма 1, 2 и 3 чисел больше 15')
else writeln('нет, сумма 1, 2 и 3 чисел меньше или равна 15');
if ((a[4]+a[5]) div 10>0) and ((a[4]+a[5]) div 100<0) then writeln('да, сумма 4 и 5 чисел - двузначное число')
else writeln('нет, сумма 4 и 5 чисел - не двузначное число');
readln; {чтобы была задержка до нажатия кнопки при выполнении программы и мы могли бы увидеть ответ}
end.
Решить можно и без использования массива.

Const
  n = 9;
var
  a:array[1..n,1..n] of integer;
  i,j,k,max: integer;

begin
  Randomize;
  Writeln('Исходная матрица');
  max:=-100;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if max<a[i,j] then max:=a[i,j]
    end;
    Writeln
  end;
 
  for i:=2 to n-1 do { не просматривать первую и последнюю строки }
    for j:=1 to n do
      if a[i,j]=max then a[i,j]:=0;
 
  Writeln('Результирующая матрица');
  for i:=1 to n do
  begin
    for j:=1 to n do Write(a[i,j]:4);
    Writeln
  end;
end.

Тестовое решение:
Исходная матрица
 -19 -24 -24 -21   0 -12 -16  12   7
  19  -2  22  12  -7 -19  25 -20 -21
  18   4  -6   9   7  -9  21   1   5
  25 -17  10  22  -7 -18  10  -6  -3
  24  -2   2 -22 -11 -13   5  24  11
   1  -7  16  24   4 -19  -6   7  21
  -9  -3  -5  10 -16  25   9 -15   4
  23  22 -20  14 -23  24   9 -24   8
   2  14 -10 -19 -21   8   6  -6 -17
Результирующая матрица
 -19 -24 -24 -21   0 -12 -16  12   7
  19  -2  22  12  -7 -19   0 -20 -21
  18   4  -6   9   7  -9  21   1   5
   0 -17  10  22  -7 -18  10  -6  -3
  24  -2   2 -22 -11 -13   5  24  11
   1  -7  16  24   4 -19  -6   7  21
  -9  -3  -5  10 -16   0   9 -15   4
  23  22 -20  14 -23  24   9 -24   8
   2  14 -10 -19 -21   8   6  -6 -17