Просто это может быть проблема с программной части так и может быть разъём для наушников не работает.
Var a,b,c,g:integer;
Begin
readln (a);
b:=a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
g:= a mod 10;
write (b+c+g);
end.
program Positiv;
var i:integer; x,sum:real;
begin
sum:=0;
for i:=1 to 10 do
begin
write('введите ',i,'-е число: ');
readln(x);
if x>0 then sum:=sum+x;
end;
writeln('Cумма положительных чисел равна ',sum);
end.
#010101 цвет..............
1. 1) 1000111_2+1001101_2=10010100_2
2)10010100_2-10011_2=10000001_2
2.1) 111_2*101_2=100011_2
2)100011_2-111_2=11100_2
3)11100_2/10_2= 1110_2