А) 132₁₀ - число положительное, его дополнительный код совпадает с прямым.
132₁₀ = 10000100₂, так оно и будет записано.
б) -80₁₀ - число отрицательное, его дополнительный код получается в три шага.
- переводим число без знака в двоичную систему и записываем его в семи разрядах: 80₁₀ = 1010000₂
- инвертируем биты, т.е. заменяем 0 на 1, а 1 на 0: 0101111₂
- прибавляем 1 и к результату слева приписываем 1 (знак): 10110000₂
'10' - это не символ, а строка, поэтому и ругается.
А еще будет ругаться на gr1:=gr+1; - тут gr не описано.
Да и вывода результатов нет.
Var s: string;
n,m: integer;
begin
write('строка: '); readln(s);
n:=length(s);
m:=n div 2;
if n mod 2 = 1 then delete(s,m+1,1)
else delete(s,m,2);
writeln(s)
end.
<span>
</span>