Упростить логическое выражение

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

а) наличие электромагнитного излучения, сrt

  б) ухудшение качества изображения при изменении угла обзора, lcd

  в) компактные размеры lcd

  г) достаточно сильное ухудшение качества изображения при изменении рекомендуемой производителем разрешающей способности crt lcd

  д) формирование изображения с лучей электронных пушек, crt

  е) меньший вред для здоровья человека при работе. lcd