ИБО МЕНЯ В АРМИЮ ЗАБЕРУТ ИБО МЕНЯ В АРМИЮ ЗАБЕРУТ ">

Uses Crt;
Var a,b,i,tek,sum10,sum3:integer;
Procedure TroichSS (te:integer; var sum3:integer);
var m:array[1..10]of integer;
    k,j,su3:integer;
begin
    write(te:4);
    repeat
        inc(k); m[k]:=te mod 3; te:=te div 3;
    until te<3;
    inc(k); m[k]:=te mod 3;
    for j:=k downto 1 do
        begin su3:=su3+m[j]; write(m[j]:3) end;
    write(' su3=',su3);
    sum3:=su3; su3:=0; k:=0;
end;
Procedure DesiatSS (te:integer; var sum10:integer);
var m:array[1..10]of integer;
    k,j,su10:integer;
begin
    write(te:4);
    repeat
        inc(k); m[k]:=te mod 10; te:=te div 10;
    until te<10;
    inc(k); m[k]:=te mod 10;
    for j:=k downto 1 do
        begin su10:=su10+m[j]; write(m[j]:3); end;
    writeln(' su10=',su10);
    sum10:=su10; su10:=0; k:=0;
end;
Begin
//Задание интервала [a; b]
    a:=1; b:=1000;
    writeln('Интервале [a; b]',a:4,b:4);
//Сумма цифр троичных и десятичных чисел
    for i:=a to b do
    begin
        TroichSS(i,sum3); DesiatSS(i,sum10);
        if sum3=sum10 then
            begin writeln('Э в р и к а!'); delay(5000); end;
    end;
    writeln('К о н е ц.');
End.

ответ: 39

Скорее всего здесь зашифрован двоичный код в кодировке Unicode, где

49 = 1

48 = 0

32 = пробел

Программа для расшифровки на языке PascalABC

program raf105;

var

 i,n1,n2,e: integer;

 s: string;

begin

 i:=1;

 writeln('Введите двузначные числа Unicode через пробел');

 readln(s);

 while i <= length(s) do

 begin

   val(s[i],n1,e);

   val(s[i+1],n2,e);

   write(chr(n1*10+n2));

   i:= i+3;

 end;

end.

Полученный двоичный код

1101000 1110100 1110100 1110000 1110011 111010 101111 101111 1100010 1100101 1110100 1100001 101110 1101011 1100001 1101101 1100001 1111010 1101001 1110100 1111001 101110 1110010 1110101 101111 1100110 1101111 1110010 1110101 1101101 1110011 101111 1110010 1100101 1100111 1101001 1110011 1110100 1100101 1110010 101111 111111 1101001 1101110 1110110 1101001 1110100 1100101 1011111 1100011 1101111 1100100 1100101 1011111 1110010 1100101 1110001 111101 110001 1100011 110111 1100110 110100 110010 1100100 110111 110011 1100110 1100101 110101 110111 1100110 110110 1100001 111000 110110 111000 110000 1100011 110001 1100100 110001 110100 1100011 110110 1100010 1100100 110101 110010 1100110