напишите программу вычисления в Паскале АБС периметр и площадь параллелограмма по точкам. Проверте на точках: A (-3; -6); B (4; -6); C (7; -3); D (0; -3)

const max=10;

var a:array[1..max,1..max] of integer;

   k1,k2:array[1..max]of byte;  

   n,m,i,j,s1,s2:integer;

begin

repeat

write('Количество строк до ',max,' n=');

readln(n);

until n in [1..max];

repeat

write('Количество столбцов до ',max,' m=');

readln(m);

until m in [1..max];

writeln('Исходная матрица:');

for i:=1 to n do

begin

 for j:=1 to m do

  begin

   a[i,j]:=-15+random(31);

   write(a[i,j]:4);

  end;

 writeln;

end;

s1:=0;

s2:=0;  

for j:=1 to m do

begin

 k1[j]:=0;

 k2[j]:=0;

 for i:=1 to n do

 if abs(a[i,j])>10 then

  begin

   a[i,j]:=10;

   inc(s1);

   inc(k1[j]);

  end

 else

  begin

   a[i,j]:=j;

   inc(s2);

   inc(k2[j]);

  end;

 end;

writeln('Измененная матрица');

for i:=1 to n do

 begin

  for j:=1 to m do

  write(a[i,j]:4);

  writeln;

 end;

writeln('          Количество замен');

writeln('           1 вида  2 вида');

for i:=1 to m do

writeln('Столбец ',i:2,k1[i]:5,k2[i]:5);

writeln('Всего     ',s1:5,s2:5);

end.

1) Нужно нажать левой кнопкой мыши на стрелку под кнопкой "Выделить"

2) Выбрать прямоугольную или произвольную область.

Если выбрана прямоугольная область:

1) Нажать левой кнопкой мыши в том месте, где должен быть какой-либо угол прямоугольной области;

2) Не отпуская кнопку мыши, перевести мышь в то место, где должен быть противоположный угол;

3) Отпустить кнопку мыши.

Если выбрана произвольная область:

1) Нажать левой кнопкой мыши в том месте, где должно быть какое-либо  место на границе произвольной области;

2) Не отпуская кнопку мыши, провести ей по границе произвольной области и замкнуть эту границу;

3) Отпустить кнопку мыши.

3) Нажать правой кнопкой мыши по выделенной области;

4) Выбрать "Копировать";

5) Нажать на любое место, кроме выделенной области правой кнопкой мыши;

6) Выбрать "Вставить".