Розв’язок задачі з Абрамова №444

Всі умови | Умова: Дано натуральне число n, дійсні числа x1, y1, x2, y2, ..., xn, yn. Знайти площу n-кутника, вершини якого при деякому послідовному обході мають координати (x1, y1), (x2, y2), ..., (xn, yn). (Визначити процедуру обчислення площі трикутника за координатами його вершин.) (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №444)

program Pr444;
var
  x, y, z, n : mas
  p : real;
  i : integer;
type
  mas = array [1..n] of real;

  procedure d(x1,x2,y1,y2 :real; var z1:real);
  begin
    z1 := sqrt(sqr(y1-y2)+sqr(x1-x2));
  end;

begin
  readln(n);
  p:=0;
  for i:=1 to n do
  begin
    writeln ('koordunata vershunu',i);
    readln(x[i]);
    readln(y[i]);
    if i=n then
      d(x[1],y[1],x[n],y[n],z[n])
    else
      d(x[i],y[i],x[i+1],y[i+1],z[i]);
  end;
  for i:=1 to n do
     p:=p+z[i];
  writeln(p:10:2);
  readln;
end.