Решить на паскале. выпуклый многоугольник на плоскости задан своими вершинами, расположенными в произвольном порядке. расположить вершины в порядке обхода по часовой стрелке.

//прошу прощения за "пузырёк" //pascal abc.net 3.1 сборка 1219 const  n=5; //количество вершин   type   ty=record   x: integer;   y: integer; end; var   ar: array[1..n] of ty;   i,j: integer; begin   for i: =1 to n do   begin     write('абсцисса точки №',i,': '); readln(ar[i].x);     write('ордината точки №',i,': '); readln(ar[i].y);   end; for i: =1 to n-1 do   for j: =i+1 to n do   if ar[i].x> ar[j].x then swap(ar[i],ar[j]); for i: =1 to (n div 2)-1 do   for j: =i+1 to n div 2 do   if ar[i].y< ar[j].y then swap(ar[i],ar[j]); for i: =n div 2+1   to n-1 do   for j: =i+1 to n do   if ar[i].y> ar[j].y then  swap(ar[i],ar[j]); ar.reverse.print; end. пример ввода: абсцисса точки №1: 1 ордината точки №1: 2 абсцисса точки №2: 2 ордината точки №2: 1 абсцисса точки №3: -3 ордината точки №3: -3 абсцисса точки №4: 3 ордината точки №4: 3 абсцисса точки №5: 3 ордината точки №5: 1 пример вывода: (3,3) (3,1) (2,1) (-3,-3) (1,2)

Это у нас цикл с предусловием.

Вывести на экран нужно n, а n будет равно 43.

ответ: 43