Найдите десятичные эквиваленты чисел по их прямым кодом записанные в 8 разрядном формате со знаком а 01001100 б 00010101

01001100=76 00010101=21

{1} var n: integer; begin write ('введите заработанную сумму: '); readln (n); write ('вы получите: ', (n*0.77)*0.61) end. {2} var a: array of double; n, i: byte; sum: longint; begin write ('введите кол-во дробных чисел: '); readln (n); setlength (a, n);     for i: =0 to n-1 do     begin     write ('введите ', i+1, ' число: ');     readln (a[i]);     end;   for i: =0 to n-1 do   begin   writeln ('целая часть ', i+1, ' числа: ', trunc(a[i]));   inc (sum, trunc(a[i]));   end; write ('сумма целых частей: ', sum); end. {3} var a, b, c, p: double; begin write ('введите стороны треугольника: '); readln (a, b, c);   if (a> =(b+c)) or (b> =(a+c))  or (c> =(b+a))  or (a< =0) or (b< =0) or (c< =0) then   write ('такой треугольник не существует')   else begin     p: =(a+b+c)/2;     write ('его s = ', sqrt (p*(p-a)*(p-b)*(p-c)): 7: 2, ' ед^2' );   end; end.

{на free работает! } var sur, sur1: string; i, count, pz: byte; begin write ('введите строку: '); readln (sur);   for i: =1 to length (sur) do       if sur[i] = 'a' then inc (count); writeln ('длина строки :   ', length(sur), ' символов; кол-во "а":   ', count); sur1: =sur;       for i: =2 to length (sur) do                 if (sur[i] = 'b') and (sur[i-1] = 'o') then                 begin;                 delete (sur1, i-pz, 1);                 inc (pz);                   end; write ('удалено ', pz, ' "b"; новая строка: ', sur1); end.