Var
 A:Array[1..14] of Integer;
 i:Byte;
 Sum:Integer;
Begin
 A[1]:=2;
 Write(A[1]:8);
 Sum:=A[1];
 For i:=2 to 14 do
  begin
   A[i]:=A[i-1]*2;
   Write(A[i]:8);
   Sum:=Sum+A[i];
  end;
 Writeln;
 Writeln('Sum= ',Sum);
 Readln
End.

Var
 x,y,z,S:Real;
Begin
 Write('x = ');
 Readln(x);
 Write('y = ');
 Readln(y);
 Write('z = ');
 Readln(z);
 S:=x+y+z;
 Writeln('S = ',S:0:3);
 If S>10 then
  begin
   if x>y then
    x:=(y+z)/2
   else
    y:=(x+z)/2
  end;
 Writeln('x = ',x:0:3);
 Writeln('y = ',y:0:3);
 Writeln('z = ',z:0:3);
 Readln
End.

const n = 15;

var i, count: integer;
    Ar: array[1..n] of real;
    r: real;

begin

  count := 0;
  for i:=1 to n do
    begin
      write('Ar[i] = ');
      readln(Ar[i]);
      r := int(Ar[i]);
      if ((i mod 2 = 1) and (Ar[i] = r)) then
        inc(count);
    end;
  write('kol-vo tselyh elementov s nechetnymi indeksami ravno ',count);
  readln;
end.

var
x,y,z:real;
begin
write ('x='); readln (x);
write ('y='); readln (y);
write ('z='); readln (z);
if (x+y+z)>10 then begin 
if x>y then x:=(y+z)/2 else y:=(x+z)/2;
write ('x=',x:2:4,'y=',y:2:4,'z=',z:2:4);
end else writeln ('amount is less than ten');
write ('x=',x:2:4,'y=',y:2:4,'z=',z:2:4);
readln
end.