Каков результат выполнения алгоритма при: Х1=8; Х2= -7; Х3=0. *
16
15
14
10
0
2
6
-6
-16
-12

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

составим двоичную матрицу:

                        молоко       лимонад         квас                   вода

бутылка               0                   1                 0                     0

стакан                 0                   0                 0                     1

кувшин                 1                   0                 0                     0        

банка                   0                   0                 1                     0

в кувшине - молоко

в бутылке - лимонад

в банке - квас

в стакане - вода

всего длина окружности составляет 2пr, а половина - пr