program Cel1;
var
B: integer;
A: integer;
temp,AA: integer;
bol:boolean;
begin
  Write('Введите А: ');
  Readln(A);
  AA:=A;
  B:=0;
  bol:=false;
  while AA>0 do
  begin
  AA:=AA div 10;
  if bol then bol:=false
  else bol:=true;
  end;
  AA:=A;
    Write('Bol:',Bol);
    temp:=1;
while AA>0 do
  begin
  if bol then
    begin bol:=false; end
  else
     begin
      bol:=true;
      B:=B+(AA mod 10)*temp;
      temp:=temp*10;
     end;
  AA:=AA div 10;
  end;
  Write('B:',B);
end.