Не понятно,что. Ты написал(а),вот 2).Что имеется ввиду?
Для кодирования 124 номеров необходимо 66 бит
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadReal2;
if a * b > 0 then Println(a - b)
else Println(a / b)
end.
Ответ:
program Num2;
var
a, b: Integer;
begin
Randomize;
Write ('Исходные числа: ');
a := Random (10);
b := Random (10);
Write (a, ' ', b);
WriteLn;
if a < b then
WriteLn ('Меньшее число = ', a)
else if a > b then
WriteLn ('Меньшее число = ', b)
else
WriteLn ('Числа равны.');
ReadLn;
end.