Логическими выражениями являются:

1)не(z=кот)
2)A∨B
3)все ответы верные
4)Ты пришёл домой?

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.

var a: integer; beginreadln(a); write (a div 10); end.

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.