Program kod;
Var q, w, e, r, t, y, u, i, x:integer;
Begin
write (q, w, e, r, t, y, u, i) ;
if q=1 then x + (1*2*2*2*2*2*2*2) ;
if q=0 then x+0;
if w=1 then x + (1*2*2*2*2*2*2) ;
if w:=0 then x+0;
if e=1 then x + (1*2*2*2*2*2) ;
if e=0 then x+0;
if r=1 then x + (1*2*2*2*2) ;
if r=0 then x+0;
if t=1 then x + (1*2*2*2) ;
if t=0 then x+0;
if y=1 then x + (1*2*2) ;
if y=0 then x+0;
if u=1 then x + (1*2) ;
if u=0 then x+0;
if i=1 then x + (1*1) ;
if i=0 then x+0;
writeln ('Код:'x) ;
пишет встречено + а ожидалось;
