program borlpasc;
const n=30;
var a: array [1..30] of real;
    b: array [1..24] of real;
    i, j: integer;
    ok, ok1, ok2:Boolean;
begin for i:=1 to n do
       begin
        write ('a[',i,']=');
            readln(a[i]);
       end;
       ok:=false;
       ok1:=false;
       ok2:=false;
        for  i:=1 to n-1 do
          if a[i] > a[i+1] then ok1:=true;
        for  i:=1 to n-1 do
          if a[i] < a[i+1] then ok2:=true;
        for i:=1 to n-1 do
          if a[i] = a[i+1] then ok := true;
    if ok or ok1 or ok2 then writeln('vse ok!') else
       begin
     j:=1;
    for i:=1 to n do begin
      if i mod 4 <> 0 then
         begin
         b[j]:=a[i];
         i:=i+1;
         j:=j+1;
         end1
      else   i:=i+1;
      end;
      end;
      for i:=1 to 8 do writeln(b[i]:10:0);
readln;

end.