Переведите в 2, 8, 16 речную систему счисление число 1945 и обратно

11110011001 (2)
3631 (8)
799 (16)
1945 (10)

var
  y: System.uint64; //Большая цЫфра же и положительная
  x, i: byte; //Нет смысла большие числа брать слишком, переполнение будет

begin
  readln(x); //Принимаем число...
  y := 1;
  i := 1;
  repeat
    y *= i; //...и умножаем такое-то количество раз
    i += 1;
  until (i > x);
  if (y = 0) then //Выводим, предусмотрев переполнение
    writeln('Слишком большая цЫферка')
  else
    writeln(y);
end.

Int64 - это то же самое, что LongInt, а Uint64 (unsign long int) - длинное число без знака, при правильном использовании позволяет записывать в переменную числа, в 2 раза превышающие максимум Int64

Угол - это часть плоскости, ограниченная двумя лучами, выходящими из одной точки.

Точка называется вершиной угла, а лучи - сторонами угла.

Если стороны угла образуют прямую (являются дополнительными лучами), то угол называется развернутым.

Углы измеряются в градусах. Градус - это 1/180 часть развернутого угла.

Виды углов в зависимости от градусной меры:

Если градусная мера угла меньше 90°, то угол острый.

Если градусная мера угла равна 90°, то угол прямой.

Если градусная мера угла больше 90°, но меньше 180°,  то угол тупой.

Если градусная мера угла равна 180°, то угол развернутый.

Два угла называются вертикальными, если их стороны являются дополнительными лучами.

Свойство вертикальных углов: вертикальные углы равны.

Два угла называются смежными, если одна сторона у них общая, а две другие являются дополнительными лучами.

Свойство смежных углов: сумма смежных углов равна 180°.

Биссектриса угла - это луч с началом в вершине угла, который делит угол на две равные части.