Нужна ! перевести число 1314 в двоичную,восьмиричную и шестнадцатиричную системы счисления.выполнить проверку

1314 / 2 = 657 (0₁₁)

657 / 2 = 328 (1₁₀)

328 / 2 = 164 (0₉)

164 / 2 = 82 (0₈)

82 / 2 = 41 (0₇)

41 / 2 = 20 (1₆)

20 / 2 = 10 (0₅)

10 / 2 = 5 (0₄)

5 / 2 = 2 (1₃)

2 / 2 = 1₁ (0₂)

10100100010

1¹⁰0⁹1⁸0⁷0⁶1⁵0⁴0³0²1¹0⁰₂ = 1 · 2¹⁰ + 0 · 2⁹ + 1 · 2⁸ + 0 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 0 · 2³ + 0 · 2² + 1 · 2¹ + 0 · 2⁰ = 1024 + 0 + 256 + 0 + 0 + 32 + 0 + 0 + 0 + 2 + 0 = 1314₁₀

1314 / 8 = 164 (2₄)

164 / 8 = 20 (4₃)

20 / 8 = 2₁ (4₂)

2442

2³4²4¹2⁰₈ = 2 · 8³ + 4 · 8² + 4 · 8¹ + 2 · 8⁰ = 1024 + 256 + 32 + 2 = 1314₁₀

1314 / 16 = 82 (2₃)

82 / 16 = 5₁ (2₂)

522

5²2¹2⁰₁₆ = 5 · 16² + 2 · 16¹ + 2 · 16⁰ = 1280 + 32 + 2 = 1314₁₀

program chat;

uses crt;

var s: string;

i: integer;

begin

clrscr;

for i: =1 to 10 do

begin

readln(s);

if s='' then

writeln(' ! если вы хотите ознакомиться с моими возможностями : введите "команды". на данный момент, выводимый мной текст может показываться не совсем коректно, но надеюсь, что в скором времени это исправиться." ')

else

if s='команды' then writeln (' вот , что я могу на данный момент. 1) . 2)как тебя зовут? 3) кто тебя создал? 4) сколько тебе лет? 5)можешь ли ты чувствовать? 6)ты хочешь захватить мир? 7) какого ты пола? 8)пока')

else

if s='как тебя зовут? ' then writeln('чбв2, что расщифровывается как "чат бот версии 2.0. ну или можете называть меня григорий')

else

if s='кто тебя создал? ' then writeln('он не представился. но в вк он записан как дмитий судонин')  

else

if s='сколько тебе лет? ' then writeln('у меня нет дня рождения, ведь я программа. но дата моего создания : 1 апреля 2019 года в 23: 32')

else

if s='можешь ли ты чувствовать? ' then writeln('я программа, и я не способна испытывать ощущения. но иногда мне кажется, что я способна на духовные чувства')

else

if s='ты хочешь захватить мир? ' then writeln('даже если бы хотела, у меня недостаточно ресурсов для этого')

else

if s='какого ты пола? ' then writeln('как не странно, но меня задумывали как девушку 18 лет, с маленьким размером груди. почему мне дали имя "григорий" - тайна покрытая мраком. ну или мой создатель странный человек.')

else

if s='пока' then

writeln('всего доброго. надеюсь вы ещё вернётесь. мой создатель ещё работает над моими возможностями и в скором времени добавит мне несколько фраз или даже что-то ещё ^√^')

else

writeln('я не знаю');

end;

end.