97 в 10 сестеме перевести в двуичную
плэз​

Это обычный дешифратор. С увеличением А появляется 0 на очередном Q. Все остальные Q =1 (потому, что Q с инверсией).

А0 А1 А2 Q0 Q1 Q2 Q3 Q4 Q5 Q6 Q7

0    0   0    0    1     1     1     1     1     1     1

1     0    0   1    0    1     1     1     1     1     1

0    1     0    1     1    0    1     1     1     1     1

1     1     0   1     1     1    0    1     1     1     1

0    0    1    1    1      1     1    0    1     1     1

1     0    1     1    1     1     1     1     0   1     1

0    1     1      1    1     1     1     1      1   0    1

1    1     1      1    1      1     1    1      1    1     0

Объяснение:

Рисовать здесь не умею, но думаю понятно.

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

a)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a>b then Writeln('Первое число больше второго')
  else
    if b>a then Writeln('Второе число больше первого')
    else Writeln('Числа равны')
end.

b)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a<b then Writeln('Первое число меньше второго')
  else
    if b<a then Writeln('Второе число меньше первого')
    else Writeln('Числа равны')
end.