Определить площадь прямоугольника, заданного координатами вершин pascal

{$apptype console} const     n = 13; type     mass = array[1..n] of integer; procedure bbibod(var a: mass); var     i: integer; begin for i: = 1 to n do       write(' ',a[i]) end; function swp(var a: mass; c: real): integer; var     i,j: integer; begin for i: = 1 to n do     if (a[i] < 0)and(a[i] < = c) then j: =i; if j < > 0 then   begin   writeln('искомый элемент: ',a[j],'[',j,']');   a[j]: =sqr(a[j]);   i: =a[n-1];   a[n-1]: =a[j];   a[j]: =i;   write('новый массив: ');   bbibod(a);   end else write('в массиве нет отрицательных элементов') end; var     a: mass;     i: integer;     c: real; begin randomize; write('исходный массив(',n,'): '); for i: = 1 to n do     a[i]: =random(2*n+1)-n; bbibod(a); writeln; write('введите число: '); readln(c); swp(a,c); readln end.

Код pascal: const     n = 13; type     mass = array[1..n] of real; function kl(var a: mass; c: real): integer; var     k,i: integer; begin k: =0; for i: = 1 to n do     if a[i] > c then k: =k+1; kl: =k; end; var     a: mass;     i: integer;     c: real; begin randomize; write('a(',n,'): '); for i: = 1 to n do     begin     a[i]: =random*21-10;     write(' ',a[i]: 0: 3);     end; writeln; write('c = '); readln(c); writeln('k = ',kl(a,c)) end. пример работы программы: a(13): -2.768 10.516 -3.518 9.286 5.555 1.039 1.225 -6.135 8.743 7.440 -3.979 6.129 -7.982 c = 3 k = 6