ОЧЕНЬ Сколько целых значений удовлетворяет логическому выражению:

НЕ (X =9)
Введите правильный вариант от

1)Быстро отключить ток.
2)Защитить себя (обернуть руки сухой тканью, встать на сухое место).
3)Освободить пострадавшего от проводов.
4)Проверить дыхание и пульс.
5)Сделать искусственное дыхание и наружный массаж сердца.У пострадавшего отсутствуют сознание, дыхание, пульс, кож­ный покров синюшный, а зрачки широкие (0,5 см в диаметре).
6)Если пострадавший в сознании, но с сохранившимся устойчи­вым дыханием и пульсом, его следует уложить на подстилку, например из одежды; расстегнуть одежду, стесняющую дыхание; создать приток свежего воздуха; согреть тело, если холодно; обеспечить прохладу, ес­ли жарко; создать полный покой, непрерывно наблюдая за пульсом и дыханием.
7) Пригласить врача.Нужно позаботиться о вызове врача или скорой медицинской Это должен сделать не оказывающий по­мощь, который не может прервать ее оказание, а кто-то другой.

Писал похожую программу , мб пригодитьсяvar cs1,cs2,res,change:integer; TD:string; function FromDec(n,r:longint):string; var s:String; const digit:string[16]='0123456789ABCDEF'; begin s:=''; repeat s:=digit[(n mod r)+1]+s; n:=n div r; until n=0; FromDec:=s; end; function ToDec(n:string;r:longint):longint; var m,i:longint; const digit:string[16]='0123456789ABCDEF'; begin m:=0; while n[1]='0' do delete(n,1,1); for i:=1 to length(n) do m:=m*r+pos(n,digit)-1; ToDec:=m; end; begin writeln('Введите из какой СC:'); repeat readln(cs1); until (cs1>=2) and (cs1<=36); writeln('Введите число в соответствии с CC:'); readln(TD); writeln('Введите в какую CC:'); repeat readln(cs2); until (cs2>=2) and (cs2<=36); writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:'); writeln(FromDec(ToDec(TD,cs1),cs2)); end.