Viết chương trình nhập vào 1 dãy điểm x1y1, x2y2...xn,yn. In các điểm vừa nhập ra màn hình, tính tổng độ dài gấp khúc lần lượt đi qua các điểm thứ 1, 2,..n. Đếm số điểm thuộc góc phần tư thứ 2. Tìm khoảng các xa gốc tọa độ (trục hoành, trục tung) nhất.

uses crt;
var i,n,dem,vitri:word;
    x,y:array[1..1000] of longint;
    max,k,d:real;
begin
    clrscr;
    readln(n);
    d:=0;dem:=0;
    for i:=1 to n do readln(x[i],y[i]);
    // Do dai duong gap khuc
    for i:=1 to n-1 do
       d:=d+sqrt(sqr(x[i]-x[i+1])+sqr(y[i]-y[i+1]));
    // So diem thuoc goc phan tu thu II
    for i:=1 to n do
       if (x[i]<0) and (y[i]>0) then inc(dem);
    // Diem xa goc nhat
    max:=sqrt(sqr(x[1])+sqr(y[1]));
    vitri:=1;
    for i:=2 to n do
       begin
           k:=sqrt(sqr(x[i])+sqr(y[i]));
           if k>max then
             begin
                max:=k;
                vitri:=i;
             end;
       end;
    writeln('Do dai duong gap khuc: ',d:0:3);
    writeln('So diem thuoc goc phan tu thu II: ',dem);
    writeln('Diem xa goc toa do nhat: ',x[vitri],' ',y[vitri]);
readln;
end.