CONST
 N=20;
 y1=-12;
 y2=-4;
VAR
 A:Array[1..N] of Integer;
 i,Mx,N_neg:Integer;

BEGIN
 Randomize;
 For i:=1 to N do
  begin
   A[i]:=-18+Random(29);
   Write(A[i]:4);
  end;
 Writeln;

 Write('First positive element is ');
 i:=0;
 Repeat
  Inc(i);
 Until A[i]>0;
 Writeln(A[i]);
 Writeln;

 Mx:=-20;
 For i:=1 to N do
  If ((A[i] mod 2)=0) and (A[i]>Mx) then Mx:=A[i];
 Writeln('Maximal even is ',Mx);
 Writeln;

 N_neg:=0;
 For i:=1 to N do
  If (A[i]>=y1) and (A[i]<=y2) then Inc(N_neg);
 Writeln('Number of elements between ',y1,' and ',y2,' is ',N_neg);
 Writeln;

 Readln
END.

CONST
 N=20;
VAR
 A,Odd,Even:Array[1..N] of Integer;
 i,N_odd,N_even:Integer;

BEGIN
 N_odd:=0;
 N_even:=0;
 Randomize;
 For i:=1 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
  end;
 Writeln;

 For i:=1 to N do
  If (A[i] mod 2)<>0 then
   begin
    Inc(N_odd);
    Odd[N_odd]:=A[i];
   end
  else
   begin
    Inc(N_even);
    Even[N_even]:=A[i];
   end;

 For i:=1 to N_odd do
  A[i]:=Odd[i];
 For i:=1 to N_even do
  A[N_odd+i]:=Even[i];

 For i:=1 to N do Write(A[i]:4);

 Readln
END.

CONST
 Fam:Array[1..10] of String=('Potkin','Sumin','Solov"ev','Tarasov',
 'Jurevich','Davydov','Putin','Zyrinovskiy','Zuganov','Matvijenko');
VAR
 Vote:Array[1..10] of Longint;
 i,j,Im1,Im2:Integer;
 Mx1,Mx2,N_elect,Sum:LongInt;
BEGIN
 N_elect:=500000;
 Sum:=0;
 Randomize;
 For i:=1 to 9 do
  begin
   Vote[i]:=Random(N_elect);
   N_elect:=N_elect-Vote[i];
   Inc(Sum,Vote[i]);
  end;
 Vote[10]:=500000-Sum;

 Writeln('Results:');
 For i:=1 to 10 do
  begin
   Write(Fam[i]);
   for j:=Length(Fam[i]) to 20 do write(' ');
   Writeln(Vote[i]:6);
  end;

 Mx1:=0;
 For i:=1 to 10 do
  If Vote[i]>Mx1 then
   begin
    Mx1:=Vote[i];
    Im1:=i;
   end;
 Mx2:=0;
 For i:=1 to 10 do
  If (Vote[i]>Mx2) and (Vote[i]<Mx1) then
   begin
    Mx2:=Vote[i];
    Im2:=i;
   end;

 If Mx1>250000 then
  Writeln('Chelyabinsk has the Mayor, and his surname is '+Fam[Im1]+'!')
 else
  Writeln('There would be the 2-nd round with '+Fam[Im1]+' and '+Fam[Im2]+'.');

 Readln
END.