В паскале написать программу которая по заданным точкам рисовала многоугольник.

[Anton1997]

В паскале написать программу которая по заданным точкам рисовала многоугольник.

[Викдон]

uses graph;

var driver,mode:integer;
    n,i,j:byte;
    X:array[1..10] of integer;
    Y:array[1..10] of integer;
begin
write('Введите число вершин многоугольника: ');
readln(n);

 for i:=1 to n do
  begin
   write('Введите х',i,': ');
   readln(X[i]);
   write('Введите y',i,': ');
   readln(Y[i]);
  end;

initGraph(driver,mode,'');
i:=0;
j:=1;
   while true do
    begin
      inc(i);
      inc(j);
     line(x[i],y[i],x[j],y[j]);
      if j=n then
        begin
         line(x[1],y[1],x[j],y[j]);
         break;
        end;

    end;

readln;
closeGraph;
end.