Ребят решите если не сложно надо

1. Т.к. нам точно не известно, квадрат ли это или нет, то следует написать так:

1)  Р четырёхугольника ABCD = 2·(AB+CD) ; 2·(AD+CD) ; (по формуле P=2×(а+b) )

или же

2·AB+2·BC ; 2·AD+2·CD (по формуле P=2a+2b)

2)  S=AB×BC ; AD×CD (по формуле S=a×b)

Если раскрыть скобки, мы увидим, что P=2×(а+b) и P=2a+2b одно и тоже: 2×(a+b) = 2a+2b

Если же подразумевается, что это квадрат, то нужно написать так:

1)  P квадрата ABCD= 4·AB ; 4·BC ; 4·BC; 4·CD (по формуле Р квадрата = 4а (т.е. 2а+2а=4а))

2)  S=AB² ; BC² ; CD² ; AD² (по формуле S квадрата = а×а=а²

2. Т.к. подразумевается, что четырёхугольник EFGH это прямоугольник, нужно написать так:

1)  2·(EF+FG) ; 2·(EH+GH) ; (по формуле P=2×(а+b)

или же

2·EF+2·FG ; 2·EH+2·GH  (по формуле P=2a+2b)

2)  S=EF×FG ; EH×GH (по формуле S=a×b)

Program long;
 uses Crt;
 const n=5;
 type Vec=array [1..n] of integer;
 var A, B, C: Vec;
     i,j,k, Col: integer;
     Pro: longint;
     a1, a2: integer;
begin
 ClrScr;
 Randomize;
 Col:=1;  Pro:=1;
 WriteLn ('Massiv A:');
 for i:=1 to n do
   begin
     A[i]:=500+random(2000);
     Write(A[i]:6);
     if A[i] >1000 then
        begin
          B[Col]:=A[i]; Col:=Col+1;
        end;
   end;  WriteLn;
 Col:=Col-1;  WriteLn;
 WriteLn ('Massiv B:');
 for i:=1 to Col do
   WriteLn(B[i]);
 WriteLn;
 k:=1;
 for i:=1 to n do
   begin
       a2:=B[i] mod 10;
       a1:=B[i] div 1000;
       if sqr(a1)<sqr(a2) then
           begin
              C[k]:=B[i];
              k:=k+1;
           end;
   end;
 for i:=1 to k-1 do
     Pro:=Pro*C[i];
  WriteLn ('Pro=',Pro);
ReadLn;
end.