Ввести три числа и найти наибольшее из них 4 15 9 с Нужна полностью рабочая программа. Чтобы потом не надо было вставлять числа

program Henry;

var

a,b,c,max:real;

begin

writeln('Здравствуйте, введите 3 числа: ');

readln(a,b,c);

if (a>b) and (a>c) then

max:=a

else

if b<c then

  max:=c

else

 max:=b;

writeln('Наибольшее число:  ',max);

end.

Объяснение:

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

вот конвертер:

2 = 2^1

8 = 2^3

это значит, что в двоичной системе определяющим является 1 цифра, а в 8-ричной - 3 цифры; разбиваем 2-ичную сис на группы по три числа, и переводим их в другую систему. например в первом будут группы чисел 100, 010,   010, 110; (разбивается с конца, исключаем возможность ошибки) 100 это 4 и т д..