Блок-схема алгоритма

const
  nmax = 100;
 
function Dlina(x1, y1, x2, y2: real): real;
begin
  Dlina := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
 
function cond(a, b, c: real): boolean;
begin
  cond := (a > abs(b - c)) and (a < b + c);
end;
 
function Perimetr(x1, y1, x2, y2, x3, y3: real): real;
begin
  Perimetr := Dlina(x1, y1, x2, y2) + Dlina(x1, y1, x3, y3) + Dlina(x2, y2, x3, y3);
end;
 
var
  t: array[1..nmax, 1..2] of real;
  n, i, j, k, imx, jmx, kmx: byte;
  mx: real;
 
begin
  randomize;
  repeat
    write('Введите количество точек от 3 до ', nmax, ' n=');
    readln(n);
  until n in [3..nmax];
  for i := 1 to n do
  begin
    t[i, 1] := random (1,5);
    t[i, 2] := random (1,5);
  end;
  writeln('Координаты точек:');
  writeln;
  write('N');
  for i := 1 to n do
    write(i:5);
  writeln;
  writeln;
  write('X');
  for i := 1 to n do
    write(t[i, 1]:5:1);
  writeln;
  write('Y');
  for i := 1 to n do
    write(t[i, 2]:5:1);
  writeln;
  writeln;
  mx := 0;
  imx := 0; jmx := 0; kmx := 0;
  for i := 1 to n - 2 do
    for j := i + 1 to n - 1 do
      for k := j + 1 to n do
        if cond(Dlina(t[i, 1], t[i, 2], t[j, 1], t[j, 2]),
                Dlina(t[i, 1], t[i, 2], t[k, 1], t[k, 2]),
                Dlina(t[j, 1], t[j, 2], t[k, 1], t[k, 2]))
        and (Perimetr(t[i, 1], t[i, 2], t[j, 1], t[j, 2], t[k, 1], t[k, 2]) > mx) then
        begin
          mx := Perimetr(t[i, 1], t[i, 2], t[j, 1], t[j, 2], t[k, 1], t[k, 2]);
          imx := i;
          jmx := j;
          kmx := k;
        end;
  if mx = 0 then write('Данные точки не образуют ни одного треугольника!')
  else write('Максимальный периметр имеет треугольник с вершинами № '
       , imx, ' ', jmx, ' ', kmx, ' = ', mx:0:2);
end.