нужно составить блок-схему

[denis273]

С помощью матрицы A(2×n) в плоскости задано n точек так, что a1,j, a2,j –координаты j-й точки. Точки попарно соединены отрезками. Найти длину
наибольшего отрезка и вывести его координаты.

program pr;
uses crt;
const n=3;
var i,j,x1,y1,x2,y2:integer;{i,j-индексы массива, x1,x2,y1,y2нужны чтоб запомнить координаты}
dlin,max:real;{dlin-дина текушего отрезка max-длина максимального атрезка} a:array[1..2,1..n] of integer;{МАССИВ}
begin
clrscr;
randomize;
for i:=1 to 2 do
for j:=1 to n do
begin
a[i,j]:=random(10);{заполнение координат случайными числами}
writeln(a[i,j],' ');{выводи их на экран}
end;
max:=0;{дилна не отрицательная значит минимальная ноль}
for j:=1 to n-1 do{вычитается единица тк для последней точки нет ещё одной пары}
begin
dlin:=sqrt(sqr(a[1,j]-a[1,j+1])+sqr(a[2,j]-a[2,j+1]));{вормула для определения длины вектора}
if dlin>max then{сравнение с максимальной}
begin
max:=dlin;{запоминание длины и координат}
x1:=a[1,j];x2:=a[1,j+1];
y1:=a[2,j];y2:=a[2,j+1];
end;
end;
writeln('maksimalnii otrezok s koordinatami: ',x1,' ',y1,' ',x2,' ',y2,' raven ',max:0:2);
readln;
end.

[Диман56]

Поищи по форуму, говорилось где-то о программе, рисующей блок-схемы по программе.