{$APPTYPE CONSOLE}
const
  n =10;
type 
  mas=array [1..n] of integer;
var 
  m, m1, m2: mas; 
  i, k, l: integer;

procedure Proc(var m, m1, m2: mas);
  var
    i: integer;
begin
  k:=1; l:=1;
  for i:=1 to n do
    if m[i] mod 2 =0 then
      begin
        m1[k]:=m[i];
        inc(k);
      end
    else
      begin
         m2[l]:=m[i];
         inc(l);
      end;
end;

begin
  m[1]:=2;
  m[2]:=6;
  m[3]:=9;
  m[4]:=11;
  m[5]:=17;
  m[6]:=10;
  m[7]:=19;
  m[8]:=23;
  m[9]:=13;
  m[10]:=1;

  proc (m, m1, m2);

  for i:=1 to k - 1 do write(m1[i],' ');
  writeln;
  for i:=1 to l - 1 do write(m2[i],' ');
  readln;
end.

var
x,y:real;
begin 
read(x);
if (x<7)and(x>6) then
 y:=5*x+6;
 if (x>7)and(x<10) then
 y:=2*x
 else 
 y:=9;
writeln(y);
end.

{$APPTYPE CONSOLE}
var
  x: real;
begin
  write('x = ');
  readln(x);
  if (x > 6) and (x < 7) then writeln('y = ', 5*x + 6:0:3)
  else
    if (x > 7) and (x < 10) then writeln('y = ', 2 * x:0:3)
    else writeln('y = 9');
  readln;
end.

{$APPTYPE CONSOLE}

const
  va = 0.8;
  vb = 1.2;
  k1 = 15;
  k2 = 0.7;
  k3 = 0.01;
  v = 0.8;
var
  v2, v3: real;
begin
  write('v2 = ');
  readln(v2);
  write('v3 = ');
  readln(v3);

  if (v < v2) and (v > 0) then writeln('I = ', k1 * v:0:3)
  else
    if (v > v2) and (v < v3) then writeln('I = ', k1*v2 + k2*sqrt(v):0:3)
    else
      if (v3 < v) then writeln('I = ', k1*va + k2*sqrt(vb) + v3*k3:0:3);
  readln;
end.