Переведите X и Y в прямой, обратный и дополнительный коды. Сложить их в обратном и дополнительном кодах. Результат переведите в прямой код. Проверить полученный результат, пользуясь правилами двоичной арифметики. X= -110101и Y= 11101;

Const
 n=10;

type
 MyArr=array[1..10] of integer;

var ar:MyArr;
ar2:MyArr;
i,k:integer;

procedure SortMin(var a: MyArr;n:Integer);
var i,j,x:integer;
begin;
 for I:=1 to n do
  for j:=1 to n-1 do
    if a[j]<a[j+1] then
      begin
        x:=a[j+1];
        a[j+1]:=a[j];
        a[j]:=x;
        end;
end;

begin;
randomize;
k:=0;
writeln('First array:');
for i:=1 to 10 do
 begin;
  ar[i]:=random(100);
  write(ar[i]:4);
  if (ar[i]>10) and (ar[i] mod 3=0) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
   end;
 end;
if k=0 then
 begin;
  writeln('Нет подходящих элементов');
  exit;
 end;
SortMin(ar2,k);
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar2[i]:4);
end.

// PascalABC.NET 3.0, сборка 1111
const
  alpha=['a'..'z'];
  digits=['0'..'9'];
var
  na,nd,i:integer;
  s:string;
begin
  na:=0; nd:=0;
  Write('Введите текст: '); Readln(s);
  for i:=1 to Length(s) do
    if s[i] in alpha then Inc(na)
    else
      if s[i] in digits then Inc(nd);
  if na>nd then Writeln('В тексте больше букв')
  else
    if na<nd then Writeln('В тексте больше цифр')
    else Writeln('В тексте букв и цифр поровну')
end.

Тестовое решение:
Введите текст: the equation 3.546x^2+4.18x-4.1=0
В тексте больше букв