Алфавит состоит из 8 символов. Найти информационный вес одного символа. оформить задачу.

//PascalABC.Net
var
  r,x,y:real;
  c:string;
begin
  Write('Введите R: '); Read(r);
  Write('Введите координаты x и y: '); Read(x,y);
  if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности'
  else c:='Точка не лежит на окружности';
  Writeln(c)
end.

Тестовые решения:
Введите R: 2
Введите координаты x и y: 0 2
Точка лежит на окружности

Введите R: 2
Введите координаты x и y: -1.5 0.7
Точка не лежит на окружности

Введите R: 2
Введите координаты x и y: 1 1
Точка не лежит на окружности

Введите R: 2
Введите координаты x и y: 3 0
Точка не лежит на окружности

Блок-схема во вложении

Правило перевода целых чисел из десятичной системы счисления в любую другую. 1.     Последовательно выполнять деление данного числа и получаемых целых частных на основание новой системы счисления до тех пор, пока не получиться частное, меньше делителя. 2.     Выписать полученные остатки, являющиеся  цифрами числа в новой системе счисления, начиная с последнего остатка.
908=1110001100

Правило перевода правильных дробей из десятичной системы счисления в любую другую. 1.     Последовательно умножаем данное число и получаем дробные части произведения на основание новой системы счисления до тех пор, пока дробная часть произведения не станет равна нулю или не будет достигнута требуемая точность представления числа. 2.     Составить дробную часть числа в новой системе счисления, начиная с целой части первого произведения.
0,12=0,001

А теперь складываем получившиеся целую и дробную часть
получаем 1110001100,001

2 пример: 1001(10) = 1111101001(2)
0,67(10)=0,10101(2
получаем 1111101001,10101(2)

3 пример
450(10)=110011010(2)
0,304(10)=0,1001(2)
получаем 110011010,10101(2)

решение первого примера на фото, надеюсь поймете