VAR
 A:ARRAY[1..100] of Byte;
 i,j,k:Integer;
 S:LongInt;
BEGIN
 Randomize;
 For i:=1 to 100 do A[i]:=Random(30);
 For j:=0 to 4 do
  begin
   For i:=1 to 20 do
    Write(A[j*20 +i]:3);
   WriteLn;
  end;
 WriteLn;
 S:=0;
 k:=0;
 For i:=1 to 100 do
  If A[i]<10 then
   begin
    k:=k+1;
    if k=21 then
     begin
      writeln;
      k:=0;
     end;
    write(A[i]:3);
    S:=S+A[i];
   end;
 WriteLn;
 WriteLn;
 S:=S*S;
 WriteLn('S*S= ',S);
 ReadLn;
END.

CONST
 n=4;
 m=3;
VAR
 i,j,k:Integer;
 a:ARRAY[1..n,1..m] of Real;
 C:ARRAY[2..n] of Real;
 S:Real;
BEGIN
 S:=0;
 For i:=1 to n do
  For j:=1 to m do
   begin
    Write('a[',i,',',j,']= ');
    ReadLn(a[i,j]);
    S:=S+a[i,j]+Sin(a[i,j]);
   end;
 WriteLn;
 S:=Ln(Abs(S));
 For k:=2 to n do
  begin
   C[k]:=S/(Ln(k)*2);
   WriteLn('C[',k,']=',C[k]:15:5);
  end;
 ReadLn;
END.