Составить программу вычисления и печати значений функций y=0.5x-√x+1 pascal abc

Var
x,y:real;
begin
write('Введите значение x=');read(x);
Y:=0.5*x-sqrt(x+1);
write('Y=',y:5:2);
end.

A) Над каждой цифрой от запятой влево расставим разряды (от 0 до 4), вправо у нас будут отрицательные (-1 и -2) Далее каждую цифру умножаем на основание системы счисления в степени разряда и на соответствующую цифру числа и складываем
11001,01=1*2^4+1*2^3+0*2^2+0*2^1+1*2^0, 0*2^(-1)+1*2^(-2)=25,25

Б) прикреплю фото 
В)Для начяала переведем это число в 10 СС
11011.101102 =1∙2^4+1∙2^3+0∙2^2+1∙2^1+1∙2^0+1∙2^(-1)+0∙2^(-2)+1∙2^(-3)+1∙2^(-4)+0∙2^(-5) = 16+8+0+2+1+0.5+0+0.125+0.0625+0 = 27.6875 (10 СС)
дальше 27 разделим на 8 и получим 
27(10 СС) = 33 (8 СС) 
дробная часть получается при умножении на основание СС то есть на 8 
0. 6875*8 = 5,5 
оставляем целое число 5
теперь 
5* 8= 40 на конце у нас ноль, умножение закончили  

Получилось:0.6875(10 СС) = 0.54 (8 СС)
33(8) + 0.54(8) = 33.54(8)

С 16 СС тоже самое, только делим на 16.  

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите текст:');
  var p:=Pos('.',s); // позиция точки
  if p>0 then s:=s[:p]; // отбросим до конца все, начиная с точки
  Writeln('Найдено слов: ',s.MatchValues('\b[A-ZА-ЯЁ][a-zа-яё]+\b').Count)
end.

Примеры
Введите текст: TesT И тольКо Тест Сегодня15 января язык Pascal версия 3-3.
Найдено слов: 2

Введите текст: И сидит, сидит зловещий Ворон черный Ворон вещий.
Найдено слов: 2

Введите текст: Почему же мы с тобой   Пишем с буквы прописной: Таня, Ваня, Мила, Нина, Коля, Петя и Ирина.
Найдено слов: 9