2304(10)=100100000000(2)
то есть переводим число из десятичной в двоичную
столбиком
делим каждый раз на 2
получившиеся чило делим на 2 до тех пор пока оно небудет равнятся 1
потом все остатки делений начиная с последный и заканчивая на 1 выписываем в один ряд
Я тебе даю формулы ты уже выбирай сам какую
Var age:integer;
begin
writeln('Сколько вам лет?');
readln(age);
if age<=0 then writeln("Так не бывает, т.к. вы ещё не родились и не можете писать");
if age>100 then writeln('Вы хорошо сохранились!') else writeln('<span>Лет до 100 расти вам без старости!</span>');
end.