Var
 n:Byte;

Function Test3(M:Byte):Boolean;
var
 M1,Sum:Byte;
begin
 M1:=M;
 Sum:=0;
 repeat
  Sum:=Sum+(M1 mod 10);
  M1:=M1 div 10;
 until M1=0;
 Test3:=(Sum mod 3)=0;
end;

Procedure Print_Triangle(M:Byte);
var
 i,j:Byte;
begin
 for i:=1 to M do
  begin
   for j:=1 to i do write(j:4);
   writeln;
  end;
end;

Begin
 Write('n = ');
 Readln(n);
 Writeln(Test3(n));
 Writeln;
 Print_Triangle(n);
 Readln
End.

Const
 M=10;
 N=12;

Var
 A:Array[1..M] of Byte;
 B:Array[1..M,1..N] of Byte;
 i,j,Num:Byte;

Begin
 Randomize;
 for i:=1 to M do
  begin
   A[i]:=Random(256);
   write(A[i]:4);
  end;
 Writeln;
 Writeln;
 Writeln(' i     A[i]');
 Num:=0;
 for i:=2 to M-1 do
  if A[i]<(A[i-1]+A[i+1])/2 then
   begin
    Inc(Num);
    Writeln(i:2,A[i]:8);
   end;
 Writeln;
 Writeln(Num, ' elements');
 Writeln('Press "Enter" to continue');
 Readln;

 for i:=1 to M do
  begin
   for j:=1 to N do
    begin
     B[i,j]:=Random(256);
     Write(B[i,j]:4);
    end;
   Writeln;
  end;
 Writeln;
 Writeln;
 Writeln('Minimal elements:');
 Writeln(' i      El');
 for i:=1 to M do
  begin
   A[i]:=B[i,1];
   for j:=2 to N do
    if B[i,j]<A[i] then A[i]:=B[i,j];
   Writeln(i:2,A[i]:8);
  end;
 Readln
End.

Const
 Eps=0.00001;
 Nmax=200;

Function S(z:real):Real;
var
 a,Sum:real;
 k:byte;
begin
 k:=0;
 a:=(Pi/2)/3*z*z*z;
 Sum:=a;
 Repeat
  Inc(k);
  a:=-a*Sqr(Pi/2)/(2*k)/(2*k+1)*(4*k-1)/(4*k+3)*Sqr(Sqr(z));
  Sum:=Sum+a;
 Until (Abs(a)<Eps) or (k>Nmax);
 S:=Sum;
end;

Var
 i:Byte;

Begin
 for i:=0 to 10 do
  writeln(0.5*i:3:1,S(0.5*i):12:3);
 Readln
End.