надо Выполнить арифметические операции в двоичной системе счисления:
а) сложить числа А и В (в формате с фиксированной запятой в обратном коде);
б) сложить числа А и В (в формате с плавающей запятой в дополнитель-ном коде);
в) перемножить числа С и Д с использованием накапливающего сумматора.

Таблица 2 – Варианты исходных данных для второго пункта задания
№
п/п А(10) В(10) С(10) D(10)
1 12,25 - 5,75 32 2
2 7,5 - 6,0 3 42
3 - 2,75 - 6,25 3 25
4 8,0 - 6,5 4 27
5 13,25 - 6,75 2 50
6 13,5 - 5,25 4 52
7 13,75 - 7,00 7 35
8 14,0 - 7,25 5 37
9 4,25 - 7,5 2 60
10 - 4,5 7,75 5 45

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

type
  Ex211a=class
 
  public
 
  constructor(fio,phone:string);
  begin
    var n:=Max(fio.Length,phone.Length);
    Writeln((n+2)*'*');
    Writeln('*',fio.PadRight(n),'*',NewLine,'*',phone.PadRight(n),'*');
    Writeln((n+2)*'*')
  end;
end;

type
  Ex211b=class
 
  public
 
  constructor;
  begin
    var n:=ReadInteger('Введите целое число:');
    Writeln('Результат равен ',n+10)
  end;
end;

begin
  new Ex211a('Иван Иванов','7-841-2666666');
  new Ex211b
end.

Пример

*Иван Иванов  *
*7-841-2666666*

Введите целое число: 18
Результат равен 28

1)

var 

a,b,c:real;

begin

readln(a,b);

c:=180-a-b;

if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')

else

if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else writeln('остроугольный');

end.

2)

var

v:real;

begin

readln(v);

if v<7.8 then writeln ('ракета упадет на Землю');

if v=7.8 then writeln ('ракета станет спутником Земли');

if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы'); 

end.