Дан правильный n-угольник с вершинами, пронумерованными от 1 до n по часовой стрелке. Проведите в нем максимальное число диагоналей так, чтобы для любых двух диагоналей i, j (i ≠ j), они либо не пересекались (в точках, отличных от вершин многоугольника), либо были перпендикулярны. Предъявите ответ и пример. Формат входных данных
В первой строке задано одно целое число n (3 ≤ n ≤ 103) - количество вершин в многоугольнике.
Формат результата
Выведите в первой строке число M - количество диагоналей в ответе.
Затем выведите M строк, где i-ая строка содержит два целых числа - вершины, которые соединяет i-ая диагональ.
Если примеров несколько, можно вывести любой.
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;
procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;
begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.